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SUMMARY 

Aviation technology can play a significant role in the development 
of the countries of the Caribbean Basin. This report focuses on a 
variety of applications of rotorcraft in the region and the bene- 
fits, both economic and political which can result from utiliza- 
tion of rotorcraft in both a public service and commercial role. A 
computer simulation of rotorcraft used as emergency medical 
vehicles is applied to compare and evaluate the advantages of 
using rotorcraft technology such as civil derivatives of the new 
tiltrotor. We conclude that by using a civil derivative of the 
tiltrotor significant improvements can be obtained in the level of 
health service in the region. We are currently engaged in an 
investigation of the potential for cargo and passenger transport 
applications for rotorcraft in the region and are developing a 
second computer simulation to be used to evaluate the potential 
benefits to be derived from such applications. 
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INTRODUCTION 


This study will concentrate on the islands and countries compris- 
ing an expanded definition of the Caribbean Basin (see figure 1 ); 

in addition to the islands of the Caribbean we will consider Cen- 
tral America, Mexico and the northern portion of South America. 
This area includes 25 independent states and four groups of depen- 
dent territories. This is the same region considered in a study 
of aviation in the Caribbean Basin carried out recently by the 
Center for Strategic and International Studies ( CSIS ) ( 1 ) . The 
population of this region is approximately 175 million with a 
total GNP of about 325 billion dollars and an average per capita 
income of approximately 1800 dollars ( see figure 2 ) . As men- 
tioned in the CSIS study this region is important from both an 
economic and geopolitical perspective. This importance stems in 
part from the fact that: 45% of all U.S. imports/exports pass 
through the Caribbean Sea and Gulf of Mexico as do 60% of NATO 
re-supplies and 55% of U.S. crude oil imports, (see figure 3) lu 
is clearly important to the U.S. that this region improve its 
level of economic development and consequent political stability. 
We belong to a growing community who believe that an important 
impetus to growth in the region can be found in new developments 
in aviation technology. It is our contention that new develop- 
ments in STOL and VTOL technology can play an important role in 
the economic development of the region. Rotorcraft, both conven- 
tional helicopters and new hybrid technologies now being developed 
such as variants of the U.S. Department of Defense V-22 Osprey 
tiltrotor can play a significant part in the development of an 
improved transportation infrastructure for the region. This 
report will concentrate on a review of promising applications of 
rotorcraft in the region with particular consideration of possible 
applications of the derivatives of the tiltrotor technology. 

Before considering specific applications of rotorcraft in the 
region it is instructive to consider the general categories of 
Civil helicopter applications in the U.S. ( see figure 2 ). While 
public service applications enjoy a relatively high profile due to 
publicity and media interest in rescue operations, it is interest- 
ing to note that approximately 65% of Civil Helicopters in the 
U.S. are engaged in commercial applications. Careful analysis of 
potential commercial applications is clearly required. This fact 
is underscored further by the fact that whereas public service 
applications benefit and should by paid for by general segments of 
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the population, commercial applications are more closely tied to 
concerns of immediate return on investment. While this report 
will consider general considerations and guidelines for commercial 
applications, the necessary more detailed analysis of cargo and 
passenger transport is an ongoing research project. 


Figure 5 shows the geographic distribution and density of helicop- 
ters compared to population densities in the United States in 
1980, (NASA contractor report NAS2-104 1 1 ) ( 3 ) . At that time the 
majority of the states had between 1 and 4 helicopters per million 
people. However these states were the most populous and indus- 
trially developed with the best system of roads. The more 
sparsely populated and mountainous states of the Rocky Mountains 
had between 11 and 32 helicopters per million people. Alaska is 
in a category of its own with over 200 helicopters per million 
people. The helicopter has many applications in such areas 
including medical evacuation, resource development and search and 
rescue operations. While no conclusion can be drawn from such a 
rough comparison, it is encouraging from the standpoint of poten- 
tial rotorcraft applications that many of the distinguishing fea- 
tures of these high helicopter application regions are shared by 
the countries of the Caribbean Basin. 


The geographical characteristics of the Caribbean Basin; numerous 
small islands, inaccessible areas, underdeveloped sea transporta- 
tion and mountainous terrain with poor roads are all factors which 
make the region well suited to rotorcraft applications. Yet until 
recently the region has been slow to acquire helicopters in appre- 
ciable numbers. Though there have been considerable acquisitions 
in the last few years the region only operates approximately 1.5% 
of the world’s helicopter fleet(l) (CSIS 1986). The apparent 
discrepancy between actual and potential use suggests the possi- 
bility of rapid growth of the rotorcraft fleet in the region. 

In addition to basic commuter transport and air freight operations 
there are numerous applications for which rotorcraft technology is 
particularly well suited in the region. These applications 
include : 

1) Search and rescue operations 

2) Emergency medical services ( EMS ) 

3) Border patrol and customs services 
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interdiction 


4 ) Drug 

5) Disaster Relief 

6) Rural electrification programs 

7) Natural resource development ( servicing oil platforms) 

8) Tourist transport to remote islands 

9) Heavy construction projects in remote regions 


Additional public service missions are listed in figure 6 from a 
NASA study carried out by Bell Helicopter Textron Inc. (4). These 
applications are distinguished from other commercial applications 
by the fact that the general public is the benefactor and the cost 
is assumed by the government agencies involved. Therefore in 
order to evaluate the cost benefit of these operations it is 
appropriate to consider the benefits and costs to society in as 
broad a sense as possible. Many of these applications are par- 
ticularly pertinent for the Caribbean Basin region and underscore 
the strong market potential for a vertical takeoff and landing 
vehicle in the region. 

The major hurdle of expanded utilization of rotorcraft in the 
region is operating cost. If an application can be carried out 
equally well by traditional fixed wing operations the rotorcraft 
will not be a viable head-to-head competitor in terms of operating 
cost. There are however a significant number of situations in 
which the vertical lift ability of rotorcraft provides the needed 
advantage and assures a place for rotorcraft. 


Passenger Services 

In order for rotorcraft to be a viable alternative to traditional 
fixed wing air transport there must be a significant advantage 
provided by vertical take off and landing ability on at least one 
end of the trip. Island hopping and the ferrying of tourists to 
remote locations are obvious situations in which the VTOL ability 
of rotorcraft can provide the extra advantage. In high density 
congested areas the time advantage provided by using rotorcraft 
for inter-city rapid transit can provide the added advantage. In 
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a current NASA report on civil tiltrotor applications ( CR 177452), 
prepared by Boeing Commercial Aircraft Corporation, Bell Textron 
and Boeing VertoL, it is concluded that for travel distances 
between approximately 200 and 600 miles the Tiltrotor with its 
speed advantage over conventional helicopters and its VTOL advan- 
tage over conventional fixed wing aircraft will be able to capture 
a portion of the passenger service market. A significant number of 
passenger routes within the Caribbean Basin fall within this dis- 
tance ( see figures 7,8 )(2). The above mentioned study concludes 
that approximately 25 commercial tiltrotors is a viable estimate 
for the passenger service market in the region by 1995. This esti- 
mate is based on a five percent penetration of a passenger service 
market which has grown at a 5% rate. 


Air Freight 

Efficient economical transport of cargo to from and between the 
countries of the region is a necessity for economic growth in the 
region. Because of the vast number of islands and other natural 
geographic considerations air transport is well suited to serve 
this transportation need and to stimulate economic development. As 
concluded in the CSIS study( 1 ) "..air transport, by furnishing the 
region with a low-cost, flexible and rapid method of transporting 
cargo, can play a crucial role in surmounting one of the most per- 
sistent obstacles to investment and growth in the Caribbean Basin 
- high transportation costs." The costs of air cargo in the 
region have been estimated at 17% of the value of the goods 
shipped. The region currently has a significant level of trade 
Vith the U.S. , a large percentage of which is transported by air. 
See figures 9 and 10 for trade data(14). 

The region has a significant number of secondary airports which, 
while not able to accommodate large aircraft, could service many 
newer aircraft which incorporate advances in airframe, engine and 
wing technology to provide relatively large cargo capacity and 
STOL (short takeoff and landing) ability. The remote areas of the 
region could be opened up to light manufacturing and agricultural 
production by the development of a transportation network incorpo- 
rating local feeder networks using STOL or VTOL technology. The 
key economic questions hinge on a cost benefit analysis of the 
possible configurations and technologies involved. Some possible 
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approaches include: 


(1) Current turboprop aircraft servicing improved airport facili- 
ties coupled with ground transport connections. 

(2) A feeder network based on the newer generation of high cargo 
capacity STOL aircraft. 

(3) A system based on advanced technology such as the civil 
tiltroter providing point to point delivery between 
production facilities and major airports or other 
manufacturing facilities in the region. 


In the tiltrotor applications study by Boeing Commercial Aircraft 
Corporation, Bell Textron and Boeing Vertol(2) it was concluded 
that based on projections of cargo transport requirements in the 
region ( excluding Mexico ) and probable percentage of penetration 
by versions of the tiltrotor into the high value cargo transport 
market it is unlikely that a significant number of tiltrotors will 
be required to service this market. Further analysis is needed in 
this area, particularly into the feasibility and probable market 
penetration of configurations based on the concept of vising the 
tiltrotor to transport passengers by day and freight by night. A 
key question which must be considered is the cost benefit to air 
transport customers and subsequent increase in market penetration 
provided by the ability to forgo the time, expense, inconvenience 
and added probability of damage involved in ground transport to 
local airport facilities. 


Natural Resource Development 


There are numerous applications. of rotorcraft in natural resource 
development including mining and logging operations, the fisheries 
industry, agricultural uses and servicing of offshore oil instal- 
lations. The increased range and cargo capacity of the tiltrotor 
insures that it will play a key role in such applications. In a 
NASA report on civil tiltrotor applications, prepared by Boeing 
Commercial Aircraft Corporation, Bell Textron and Boeing Ver- 
tol ( 2 ) , it is estimated that the 221 offshore oil platforms in the 
Gulf of Mexico and Caribbean may eventually require up to 170 til- 


6 



ORIGINAL PAGE is 
OR roor QUALITY 


trotors. While this may be the major application in this category 
the advantages of the tiltrotor will also insure its place in 
other areas of resource development. 

Public Service 

We will now narrow our discussion of applications of aviation 
technology in the Caribbean region to the public service sector 
with emphasis on rotorcraft applications. The relative inaccessi- 
bility of much of the region again is a key factor supporting 
rotorcraft applications in this area. As stated previously most 
applications in the public service area tend to benefit broad seg- 
ments of the population and should therefore be supported by the 
governments or agencies involved where possible. It seems reason- 
able therefore to assume as global a view as possible when analyz- 
ing the costs and benefits of a given application. One of the 
current issues facing Emergency Medical rotorcraft operations in 
the United States is the question of payment for what is unques- 
tionably an expensive service. According to an ASHBEAMS survey in ) 
Rotor and Wing International, Nov. 1982 the average direct cost of 
an Emergency Medical Helicopter is $630,000 per year compared to 
net Revenues from patient charges of $162,000, or 25.7% of the 
direct operating cost. There is an added benefit to the hospital 
of increased utilization which may or may not make up the differ- 
ence. In this as well as other public service applications it is 
necessary to arrive at some consensus concerning who should pay 
and who benefits from the given application. This is critical in 
a less affluent region such as the Caribbean Basin. 

In the NASA report on civil tiltrotor applications, prepared by 
Boeing Commercial Aircraft Corporation, Bell Textron and Boeing 
Vertol(2), the following operational benefits and requirements 
were noted for public service applications: 

(1) Law Enforcement: For general law enforcement a 6-10 passenger 

tiltrotor is needed, for drug interdiction a larger 12-16 pas- 
senger tiltrotor would be optional. Law enforcement 
applications would benefit from the greater speed, range and 
operational flexibility of the tiltrotor. 

(2) Coast Guard search and rescue: For search and rescue oper- 

ations a 6-10 passenger tiltrotor configuration would be gen- 
erally most suitable. The tiltrotors advantages over 
conventional helicopters in this application include longer 
range, greater speed, a more stable platform, and milder 
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downwash 


(3) Medical transport: For medical transport operations a 6-10 

passenger tiltrotor configuration is needed. Medical 
transport operations would benefit from time savings and 
reduced transfers. 


Law Enforcement Operations 

There are many advantages to the use of rotorcraft in law enforce- 
ment operations. In the last few years the number of helicopters 
used by law enforcement agencies and particularly drug enforcement 
units has grown markedly. A new drug enforcement unit in Puerto 
Rico has recently acquired several helicopters. For general law 
enforcement operations in the region the tiltrotor would be advan- 
tages for long-range prisoner transfer, high-priority personnel 
movements and other applications where the speed and range would 
prove most beneficial. The versatility of the tiltrotor would be 
important because of the diverse applications required by law 
enforcement agencies. While the tiltrotor may not replace the 
helicopter in many applications such as intra-city patrols and 
ground unit support it could play a major role where its larger 
capacity, speed and range could be utilized. Perhaps the most 
important area of law enforcement in which the tiltrotor should 
prove effective is drug interdiction. The larger size, greater 
speed, range and endurance of the tiltrotor would be sufficiently 
important in this type of operation to make the tiltrotor the 
ideal vehicle for drug enforcement agencies of the region. 


Search and Rescue 


The United States Coast Guard operates bases located on the North- 
western coast of Puerto Rico and in Florida. The primary missions 
are providing protection for vessels operating within the 200 mile 
offshore coastal region surrounding the U. S. and drug interdiction 
operations. Currently the missions are accomplished using a combi- 
nation of HU-25 Falcon jets for long range reconnaissance and 
HH-65 and HH-3 Helicopters and Coast Guard Cutters for rescue 
operations and interdiction. 

The tiltrotor with its longer range and greater speed is an ideal 
vehicle for sea rescue operations. In addition the tiltrotor 
offers a more stable platform and milder downwash than the heli- 
copters currently in use. Currently the 300 nmi radius limitation 
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of the HH-3 helicopter results in only 73% of the incidents being 
within range. The longer range missions must be reached by cut- 
ters and other long-range craft. The longer range tiltrotor could 
significantly increase the number of incidents which can be 
reached quickly and could consolidate some multiple aircraft 
requirements into a single unit, thus resulting in possible cost 
saving's . 

Disaster Relief 


Disaster relief includes most of the applications involved in 
search and rescue, emergency medical services and law enforcement 
operations. In the advent of a natural or man-made disaster, 
people and relief supplies must be transported into and from the 
affected area. The tiltrotor with its speed, range and versatil- 
ity is ideally suited to a major role in relief operations. In a 
major disaster tiltrotors could be drawn from police, military and 
even commercial applications for service during the relief oper- 
ations. 


Emergency Medical Services 


Hospital based Emergency rotorcraft can play a significant role in 
improving the level of health care available to the population. An 
efficient system of HEMS centers can reduce response time and pro- 
vide more effective health care to the region. The obvious bene- 
fits include the reduction of the number of deaths, permanent dis- 
abilities, and length of hospital stays. 

In the US the accident death rate in rural areas where quick 
access to large trauma centers is not available is four times the 
urban death rate. The number of persons killed per year in the 
U.S. by trauma is approximately 115,000. Traditionally a large 
percentage of EMS missions involve trauma cases. Trauma;, affects 
primarily young productive persons. The cost to society in the US 
is estimated at $41 billion annually. For most trauma cases the 
probability that death will occur within the first 25 minutes is 
67%. It is estimated that the average response time can be 
reduced by between 30% to 80% by helicopter rescue services, and 
that mortality can be reduced by approximately 50% if patients are 
rapidly transported to a trauma center. These facts underscore 
the importance of a well developed system of emergency medical 
transfer of critically ill and trauma patients. 
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The countries of the region have varying levels of health services 
but there is a universal need to improve the level of health care. 
In the least developed countries such as Haiti, the most urgent 
need is for elementary health care facilities and the correspond- 
ing infrastructure to provide basic health care to the population. 
Other countries including parts of Central America, Venezuela, 
Jamaica, and the Dominican Republic have a more developed system 
of health care, at least in the more populous regions. These 
larger countries have the population and economic base to support 
a system of helicopter based emergency medical centers within 
their borders. We feel that once economic and political barriers 
are overcome, a rapid growth of such centers will parallel the 
growth of such centers in the United States. The first successful 
center will serve as an example of the feasibility of the concept 
and should act as a catalyst for further development in the 
region. An attractive location for such a center is the Lesser 
Antilles. 


NE KEEBNAKSBYSIS 

In the United States trauma is the major cause of death for per- 
sons under 40 years of age. In addition to accidental death 
caused by motor vehicle accidents, drownings, falls, burns, pois- 
onings and firearms, many thousands die prematurely from critical 
medical illnesses that did not receive urgently needed medical 
attention. The two most critical factors determining a trauma 
victim’s chance of survival are rapid transport to a medical 
facility and the ability of the medical facility to provide a high 
level of expert emergency health care. "Survival is directly pro- 
portional to the ability of the trauma system to respond to the 
accident with adequate and appropriate care, and is inversely pro- 
portional to the severity of the initial injury and to the square 
of the time lapse between the injury and stabilization of the 
unstable patient"(5). Small emergency rooms in community hospi- 
tals are seldom well equipped and unless the attending physicians 
have the experience born of a relatively high volume of trauma 
cases they will not be able to provide optimal care. It is esti- 
mated that 40 cases per month are required to keep the necessary 
skills. 

There has recently been much improvement in emergency health care 
in the United States. The number of states served by HEMS has 
nearly doubled in the last five years. This rapid growth has been 
due to the recognition of the inadequacy of the trauma care pro- 
vided by small emergency rooms in which the staff have neither the 
experience nor the facilities to provide adequate service. The 
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countries of the Caribbean Basin are characterized by inadequate 
transportation of trauma victims and small ill-equipped emergency 
facilities . 

The existing level of services on the majority of the islands in 
the region indicates a need for improvement. However, in order to 
optimize resource allocation and insure fiscal integrity, it is 
important to analyze the potential demand for HEMS in the region. 

A common concern of all new HEMS centers is the prediction of the 
number of patients who will require helicopter transfer. This is 
important from both an economic as well as professional viewpoint. 
A high volume of patients is necessary to maintain the required 
level of experience and expertise of the attending staff. Several 
methods of predicting usage have been utilized. The most common 
methods range from simple guidelines based on population served, 
to detailed analysis of emergency room data. No method has proved 
completely satisfactory since estimates based solely on population 
ignore many important factors and complete emergency room data is 
a rarity even in the United States. A separate analysis will be 
carried out for the island of Puerto Rico since more data is 
available for Puerto Rico and the island is demographically more 
similar to the United States than the rest of the region. 

The simplest method of estimating helicopter utilization mentioned 
in the literature is based solely on the size of the population 
served. The average number of helicopter transports per 100,000 
population is approximately 31 per year in the United States. See 
table 11 for an average HEMS profile. There has traditionally 
been a learning period during which the population is educated as 
to the availability of HEMS service and the primary responders to 
emergencies are trained to recognize how and when to request heli- 
copter transfer. Consequently, during the first year of operation 
the call rate is often as much as 50% less than the rate of a more 
mature center. Table 12 indicates the diversity of experience of 
several HEMS centers during their first year of operation and 
underscores the approximate nature of any estimate based solely on 
size of population served. 

It is generally true that a center located in an isolated area 
will experience a greater demand rate for helicopter transfer than 
a center located in a densely populated metropolitan area. The 
apparent reason being that in a metropolitan area in which much of 
the population is located relatively close to an emergency center, 
rapid transport can usually be provided by ground vehicles. In 
the more isolated regions ground transport is often not a viable 
option if speed and smooth ride are important factors, as they are 
in most trauma situations. This observation is clearly pertinent 
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when considering- the numerous small islands of the Caribbean Basin 
and would tend to suggest that a higher percentage of trauma 
patients would benefit from helicopter transfer in this region 
than in most areas of the United States. Another important factor 
which would tend to differentiate the Caribbean Islands from the 
United States is the fact that a high percentage of HEMS requests 
in the United States arise from motor vehicle accidents. In the 
estimate of helicopter transfer requests by Rhee et A1 . ( 6 ) , 
approximately 50% of the requests were related to traffic acci- 
dents. While the motor vehicle accident rate in Puerto Rico is 
similar to the United States(7), this may not be the case for the 
rest of the countries. In an attempt to counteract this differ- 
ence, we will base motor vehicle accident estimates for the Lesser 
Antilles on the number of motor vehicles rather than population 
size . 


Benefits of HEMS Centers 


The obvious benefit provided by HEMS centers to the region will be 
the reduction of loss of life and injuries due to trauma and major 
medical emergencies. While it is difficult to place a dollar value 
on a human life it is important to estimate the savings to society 
in order to put the considerable cost of establishing such a sys- 
tem in perspective. It is necessary to consider the savings from 
the point of view of society as a whole and not just the profit or 
loss of the individual operator involved. 

In the US the National Health and Traffic Safety Administration 
estimates the value to society of a human life to be over 
$200,000. This estimate was for 1980 when the per capita GNP of 
the United States was approximately $12,000. Using the average per 

capita GNP of the Caribbean of approximately $1,800 to scale the 

National Health and Traffic Safety administration’s estimate to 
the region yields an estimate of $30,000 per life saved. While 
clearly a crude estimate, the indication is that even in this rel- 
atively poor region an emergency medical rotorcraft. with an oper- 
ating cost of $030,000 would have to save 21 lives per year in 

order for its operating cost to be offset by its benefit to 

society. In the United States it is estimated that an EMS rotor- 
craft saves approximately 9 lives per 100,000 population served. 

So for a service region containing as little as 1 million people 
an EMS rotorcraft would save the society as a whole more than four 
times as much as its operating cost. This would vary according to 
the relative wealth of the country but on the average there is 
clear economic justification from the viewpoint of savings to the 
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economy of the region. 


HEMS Utilization Estimate for Puerto Rico 


In order to estimate the potential utilization of HEMS for Puerto 
Rico, we rely on motor vehicle accident data for Puerto Rico pro- 
vided by the U.S. Department of Transportation! 7 ) . We assume 
other causes of trauma are similar to the United States. As in the 
United States and the majority of the Caribbean islands, heart 
disease is the major cause of death(8). In the United States a 
major source of emergencies after traffic accidents is myocardial 
infarction with a very high deaths-per-incident rate on the order 
of 40%(9). We will estimate the number of myocardial infarctions 
by applying the U.S. average of .0075 heart attacks per person per 
year(10). The following analysis is for the first year of oper- 
ation, consequently after an HEMS center has matured it would be 
reasonable to expect the rate of utilization to double. In our 
analysis we follow the method of estimation and apply some of the 
frequency and utilization rates presented by Rhee et al . ( 6 ) in 
which an analysis of HEMS demand was developed for souther i Michi- 
gan. The corresponding utilization rate may be different for 
Puerto Rico but the resulting estimate should serve as a f. rst 
approximation . 


In the United States motor vehicle accident (MVA) trauma is one of 
the major causes of accidental death. While between 30% and 50% 
of MVA deaths occur almost instantaneously ( 1 1 ) , approximately 20% 
of the victims are potentially salvageable if transported quickly 
to an adequate medical facility ( 12 ) . Approximately 50% of those 
"victims who eventually die are taken to an emergency facility! 6) 
This information along with records of the number of motor vehicle 
accident deaths in Puerto Rico can be used to estimate the number 
of patients who would benefit from HEMS transfer. The number of 
traffic fatalities in Puerto Rico for the period between 1978 and 
1983 has averaged 516 per year(7). We estimate that 70% of the 
population of Puerto Rico is served by basic or less than basic 
emergency services and the remaining 30% are located in areas 
served by a major medical facility. Following the analysis pre- 
sented by Rhee et al . ( 6 ) , we estimate that 50% of the fatal acci- 
dent victims located in areas with basic or less than basic emer- 
gency services needed HEMS and 5% of those located in the major 
service area would have benefitted from HEMS. This analysis indi- 
cates that 516*0.70*0.50=180.6 of those accident victims in areas 
with basic or less than basic medical service needed helicopter 
transfer. Similarly 7.74 victims in the major service areas 


needed HEMS . 


Continuing the analysis presented by Rhee et al . ( 6 ) in a system in 
which patients are taken to the nearest hospital and then trans- 
ferred, actual transfer might occur in 25% of the cases. This 
leads to an estimate of 47.09 HEMS requests for those motor 
vehicle accident victims who would otherwise die. A similar ana- 
lysis is carried out for HEMS calls for an estimate of the number 
of traffic accident victims who are not likely to die as well as 
for victims of falls, spinal cord injuries, burns, myocardial 
infarction, cerebrovascular accidents and pediatric and other 
emergencies. The results are summarized in table 13 in which we 
estimate approximately 442 HEMS calls for the first year of oper- 
ation of a HEMS center located in Puerto Rico. This compares 
favorably with the national average of 370 calls per year for the 
first year of operation of centers within the U.S. mainland. How- 
ever, this is not our final estimate for such a center since we 
have not yet included several sources of HEMS calls. The above 
analysis is based on a service area comprising only the island of 
Puerto Rico. If a vehicle with an effective range of 300 miles is 
used, the population served is approximately three times that con- 
sidered in the above analysis. Our initial estimates clearly 
indicate that there will be sufficient demand to support a HEMS 
center on the island of Puerto Rico. 
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> HEMS Utilization Estimate for the Lesser Antille s 

v 

In order to estimate HEMS utilization for the islands of the 
t Lesser Antilles, the islands between Puerto Rico and Venezuela, we 
.will use much the same techniques as for Puerto Rico. However, 
-;for these islands we do not have such complete motor vehicle acci- 
dent data and will have to estimate the number of fatal traffic 
accidents as well as the number of motor vehicle accident survi- 
vors. We do this by interpolating from the number of motor 
Vehicles on the islands rather than from the population. Once 
again, this will only provide a rough : estimate but we feel any 
; error is on the conservative side given the congestion and poor 
road conditions found in most of these islands. Another differ- 
ence is that since we envision the establishment of only one HEMS 
center in the southernmost islands, approximately 98% of the total 
population of the Lesser Antilles will be considered to be located 
in an area with basic or less than basic emergency service. The 
98% estimate is derived by assuming that the HEMS center will be 
located on the island of Grenada and approximately 50% of the pop- 
ulation of Grenada is sufficiently remote from the capital to be 
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considered in a basic or less than basic medical service area. 
After making these assumptions and applying an analysis parallel 
to that for Puerto Rico, we estimate that during the first year of 
operation there will be 342 calls for HEMS from the islands of the 
Lesser Antilles. See table 14 for a summary of these calcula- 
tions. As stated previously, the number of HEMS calls will 
increase as the center becomes better known and the communication 
system improves. 

The above estimates of demand are sufficient to support a second 
HEMS center located in one of the southern islands. That our 
estimates of HEMS demand are probably somewhat conservative can be 
seen by considering that use of the rule of thumb estimate of 31 
calls per 100,000 population served would lead to an estimate of 
600 calls per year for a center located in Grenada with an operat- 
... ing range of 150 miles. Note from table 15 that there are approx- 
imately 2 million people within a 150 mile radius of Grenada. 


HEMS Utilization Estimates for the larger islands and countries 
of the Caribbean Basin 

.For the remaining countries of the Caribbean Basin a similar ana- 
lysis was carried out using estimates based on population size and 
the density of urban populations. Table 1G gives a summary of the 
results of these estimates. As in the previous cases these esti- 
•, mates are based on percentages derived from experience in the 
United States and therefore to be taken as only rough approxima- 
tions. As in the case of the estimate for the Lower Antilles the 
errors are most likely on the conservative side. It is rather 
clear that most of the countries would have sufficient demand to 
■support one or more HEMS center. The real issue is the afforda- 
"bility of establishing such centers. We feel however that as the 
benefits of such centers become better appreciated the necessary 
economic and political pressure will result in the eventual estab- 
lishment of a system of HEMS centers throughout the region. We 
will now consider the relative advantages that new technology such 
as the Tilt-Rotor could contribute to such a system. 


The Tilt Rotor as an Emergency Medical Ve h icle 


Bell Helicopter Textron has developed a new aircraft which we feel 
is destined to constitute a milestone in emergency medical rescue 
technology. The Tilt Rotor is an aircraft which can be flown 
either as a helicopter or as a fixed wing, combining the versatil- 
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ity of one with the speed and range of the other. The transition 
from one mode to the other is done smoothly in a matter of twelve 
seconds. The implications for medical rescue operations are obvi- 
ous . 

Since its use in the Korean War, the helicopter has shown the 
importance of quick response time in emergency rescue operations. 
But the helicopter has neither the speed nor the range of a fixed 
wing aircraft. The Tilt Rotor combines the speed and range of a 
fixed wing aircraft with the ability to fly directly to the scene 
of an accident and back to the medical facility. This new tech- 
nology is not just in the initial planning stages; two XV-15 Tilt 
Rotor prototypes have been flying since 1977 and a commercial ver- 
sion of the Tilt Rotor should be on the market in less than ten 
years . 

The advantages of the XV-15 are illustrated with a speed envelope 
comparison. In figure 11 we see that the XV-15 is capable of fly- 
ing 300 MPH , fully twice the speed of current emergency medical 
helicopters. The range of the XV-15 is equally impressive with an 
effective range of approximately 700 miles. (See figure 17). The 
cabin dimensions of the XV-15 are roughly 1.5 * 1.5 * 4 meters. 
This spacious cabin can be fitted for a multi-patient, casualty 
evacuation role or it can be tailored to serve as a fully equipped 
flying emergency medical facility. ( See figure 18 ). 

The initial cost of the Tilt Rotor will be higher than either a 
helicopter or fixed wing aircraft; the current cost projections 
are approximately 10% more than a helicopter of the same passenger 
size. There will be many situations where the Tilt Rotor will be 
very cost effective. This is due mainly to the fact that the Tilt 
Rotor can go twice as far and twice as fast as a helicopter on the 
same amount of fuel (13). The Tilt Rotor will be exceptionally 
useful and cost effective in situations where it is necessary to 
cover large sparsely populated areas. The higher initial cost 
must then be measured against the benefit of serving a large 
region with a single medical facility. This situation is found in 
the Caribbean Basin as well as in many sparsely populated areas of 
the world. 


Computer Simulation of HEMS 


In an attempt to analyze the results of locating HEMS centers in 
the Caribbean Basin, a finite event Monte Carlo simulation of HEMS 



centers was developed and run for various configurations of loca- 
tions and helicopter types. The program generates accidents in a 
given region according to criteria input by the user and then cal- 
culates the time required to provide assistance to each accident 
using the closest available aircraft. The availability of an air- 
craft depends on its location, range, speed, and whether or not it 
is currently being used for a previous rescue or is out of service 
due to repairs or bad weather. The program accepts as input the 
locations and categories of hospitals, the number and capacity of 
helicopters at each hospital, the region in which a given percent- 
age of accidents will occur, and other data relating to rescue 
time, response time, etc. The program was initially developed on 
a Macintosh micro-computer and makes extensive use of graphics for 
both input of data and illustration of the simulation. The output 
of the program includes the average wait time before an accident 
victim is reached, the average rescue time before the victim is 
taken to the nearest appropriate hospital, the number of accident 
victims which were not rescued due to the lack of an available 
helicopter, and the number of hours per week that each helicopter 
spends flying. Figures 19, 20 and 21 illustrate the results of 
three simulations. 

In one case, the trauma centers were located on the islands of 
Puerto Rico and Grenada. A helicopter was located at each of 
these trauma centers and an additional helicopter was located on 
the island of Guadeloupe to provide transport from the middle 
islands to either of the two trauma centers. The helicopters were 
assumed to have a speed of 150 MPH and an effective range of 150 
miles. This speed and range correspond to the limitations of the 
HEMS helicopters currently available. The third helicopter 
located in the middle islands was necessary in order to cover the 
entire region. We did not assume a third trauma center in the 
middle islands, however, since the population of the region would 
not currently support a full trauma center; at this site we 
located a level two center and assumed that transfer to one of 
•the full trauma centers would be necessary for the majority of the 
rescue operations. 

In the second case we simulated two trauma centers, one located in 
Puerto Rico and the other in Grenada. In this case we assigned 
one helicopter to each center with a speed of 300 MPH and an 
effective range of 300 miles. This speed and range correspond to 
the capacity of a proposed version of the new XV-15 Tilt Rotor. In 
this case a third helicopter is not necessary since the increased 
range of the Tilt Rotor enables two vehicles to cover the entire 
region . 
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A comparison of the results of the two simulations underscores the 
advantage of using the two Tilt Rotors rather than three helicop- 
ters. In the simulation using two Tilt. Rotors the average rescue 
time was 100 minutes verses 125 minutes for the system of three 
standard helicopters. The average time before arrival of the res- 
cue vehicle was 34 minutes using Tilt Rotors and 32 minutes using 
helicopters. The percentage of out of range calls was also 
reduced by using the Tilt Rotors. While these results are tenta- 
tive and no firm conclusions should be inferred from this initial 
comparison, it does point out some of the potential advantages to 
be derived from the new Tilt Rotor technology. 

In figure 21 we show the l'esults of running a simulation for the 
entire region. In this case we located tiltrotors in the same 
locations as the previous simulation and located conventional 
helicopters in major population centers of the remaining countries 
of the Caribbean Basin. According to this simulation good cover- 
age of the entire region is possible using twenty HEMS centers. 
While the average rescue times and percentage of missed calls is 
not as good as for the previous simulation, with a relatively 
small number of centers the majority of the population could be in 
range of helicopter rescue service. 


CONCLUSION 

It is cl ear that there is a need for the level of medical service 
which could be provided by strategically located HEMS centers in 
the Caribbean Basin. In addition to improving the quality of 
health care available for residents and tourists in the area, a 
system of helicopter based medical centers would foster a sense of 
cooperation between the islands of the region as well as with the 
United States. Such a system will also serve as an example and 
training site for other countries in the region which have both 
the resources and the need for such medical services. If appro- 
priate sources of funding and guidance are provided by the United 
States a lasting and highly visible source of goodwill will have 
been set in motion. We feel that the benefits of such a system 
warrant further serious consideration. 
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FIGURE 1. COUNTRIES COMPRISING THE CARIBBEAN BASIN 
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FIGURE 2 


SUMMARY DATA FOR COUNTRIES OF THE CARIBBEAN BASIN 


Country 

Population 

GDP/GNP 

Billions 

Per 

Capita 

Exports 

(Billions) 

Imports 

(Billions) 

Antigua/Barbuda 

82,000 

$ 0.171 

$2,085,990 

$ 0.044 

$ 0.159 

Bahamas 

235,000 

1.949 

8,292.275 

2.490 

3.248 

Barbados 

253,000 

1.247 

4,929.479 

0.422 

0.710 

Belize 

168,000 

0.201 

1,199.300 

0.101 

0.136 

British Virgin Islands 

12,000 

0.087 

7,210.548 

0.003 

0.074 

Cayman Islands 

22,000 

0.087 

3,933.026 

0.027 

'0.157 

Costa Rica 

2,714,000 

3.681 

1,356.245 

1.035 

1.192 

Dominica 

74,000 

0.092 

1,249.382 

0.028 

0*061 

Dominican Republic 

6,785.000 

11.909 

1,755.141 

0.938 

1.516 

El Salvador 

5,105,000 

4.552 

891.601 

0.824 

1.002 

Grenada 

86,000 

0.094 

1,095.191 

0.021 

0.063 

Guadeloupe 

334,000 

1.626 

4,868.983 

0.112 

0.702 

Gautemala 

8,600,000 

9.604 

1,116.784 

1.236 

1.407 

Guyana 

771,000 

0.432 

560.257 

0.230 

0.240 

Haiti 

5,870,000 

1.949 

331.974 

0.189 

’ 0.332 

Honduras 

4,648,000 

3.464 

745.337 

0.759 

0.792 

Jamaica 

2,288,000 

2.165 

946.331 

0.764 

^ 1.191 

1 

Martinique 

328,000 

1.902 

5,798.397 

0.154 

0.881 

Montserrat 

12,000 

0.036 

2,996.591 

0.002 

0.022 

Netherlands Antilles 

236,000 

1.517 

6,428.069 

4.944 

5.057 

Nicaragua 

3,342,000 

3.027 

905.881 

0.334 

0.887 

Panama 

2,227,000 

4.763 

2,138.954 

0.454 

1.451 

Puerto Rico 

3,300,000 

14.462 

4,382.515 

10.226 

10.675 

St. Christopher, Nevis 

40,000 

0.070 

1,741.769 

0.035 

0.053 

St. Lucia 

123,000 

0.160 

1,302.644 

0.056 

0.120 

St. Vincent & 
the Grenadines 

103,000 

0.100 

970.983 

0.047 
■ * 

0.080 

Suriname 

381,000 

1.191 

3,125.624 

0.385 

0.375 

Trinidad & Tobago 

1,204,000 

9.310 

7,732.876 

2.382 

2.057 

Turks & Caicos Island 

7,000 

0.021 

2,953.221 

0.004 

0.025 

US Virgin Islands 

102,000 

0.773 

7,579.934 

4.045 

5.281 

Total 

49.452.000 

$80,643 

$1,627,093 

$32,289 

$39,946 





(16.8 US) 

(16.2 US) 














FIGURE 4. HELICOPTER DISTRIBUTION BY PRIMARY MISSION 
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Distribution of Civil Helicopter Distribution of Civil Helicopters 

Operators by Primary Mission ( No - of Aircraft) by Primary Mission 
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FIGURE 6. PUBLIC SERVICE HELICOPTER MISSIONS 


PUBLIC SAFETY 

SEARCH AND RESCUE 

1. Mountain Remote Site Rescue 

2. Ocean /River Rescue 

3. Missing or Late Vessels 

а. Shlo Collisions and Groundings 

5. Missing Persons 

б. Aircraft Accident 

7. Endangered Fire Fighting Equipment 


LAW ENFORCEMENT 

1. Orug Enforcement A. Detection 

2. Security (Building A. VIPs) 

3. Surveillance (General A. Covert) 

A. Searcft (Fugitives A. Vehicles) 

5. Patrol 

6. Observation Post 

7. Hlgn Speed Pursuit 

8. Command Post 

9. Crowd Control (Traffic A Riots) 

10. Pollution Control 
It. Transport (VIPs A Crime Specialists) 

12. Stolen Property Recovery 

1 3. Ambulance Escort 
la. Disaster Warning A Relief 

15. Emergency Cargo Transport 

16. Fire Detection 

17. Rescue 

18. Search (Peoole Lost) 

Traffic (Emergency) 

Warer Area Patrol 
Acr, Al Photography 

••••• 

EMERGENCY MEDICAL SERVICES 
*• the Scene Accident Pick-Ups 
• A. Traffic 

8. Occupational 
f f C. Residential 

y-»c,y .-j r- 

■ S-.: , ’ . D. Recreational 


-a.rf 


2. Interhospital Transfers 

A. Critical Patient Transfer 

3. Neonatal Transfer 

C. Bum Patient Transfer 

D. Organ/Blood Transport 

E. Medical Supply Transport 

F. Medical Equipment Transport 

FIRE FIGHTING 

1. Transport Personnel 

A. Fire Crews 

B. Command Post 

C. Firefighting Tools. 

Harpware A Supplies 

0. Suspended Maneuvering System 

2. Retardant Applications 

3. Reconnaissance 

A. Maoping 

B. !R Sensing 

C. Dry Season Surveillance 

4. Backfiring 

DISASTER RELIEF 

1. Ufesaving People Transport 

2. Life Sustaining Supply Transport 

3. Evacuations 

4. Early Warning A Response 

5. Command Pose 

6. Post-Olsaster Clean-Up 


QUALITY OF LIFE 

WILDUFE MANAGEMENT 

1. Herding Animals 

2. Tagging Ammais 

3. Relocating Animals 

4. Oamage Control 

5. Fish Stocking 

6. Fish Management 


SURVEYS 

1. Animal A Fish Population 

2. Inspect Oil Platforms 

3. Inspect Strip Mines 

4. Inspect Powerllnes 

5. Inspect Dams A Reservoirs 

6. Aerial Photography *“ 

7. Factory Pollution Monitoring 

8. Wetlands Inspection . 

EXTERNAL LOADS 

1. Tower A Pole Setting 

2. Wire Stringing 

3. Pipeline Laying 

4. Uming Lakes 

5. Seeding Forests 

6. Remote Site Construction 

7. Remote Site Supply 

8. Snoodtng 

LAND MANAGEMENT 

1. Fire Control 

A. Burr au of Land Mana ;ement 

B. U.S. Forest Service 

C. Bureau of Indian Affair* 

2. Geologi-ai Studies 

A. Exploration 

B. Earthquake Research 

C. Voicano Research 

D. Channel Monitoring 

3. Cadastral Surveys 

4. Electronic Surveys 

5. Resource Management 

TRANSPORTATION 

1 . Inspection 

2. Work Crews 

3. Survey Equipment 

4. Survey Personnel 

5. Resuoply 

6. Search A Rescue i.. 


Ref: Morrison. 1982 


Public service helicopter missions. 
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• ;-L. FIGURE 7. POTENTIAL TILTROTOR CARIBBEAN PASSENGER ROUTES 


From 

To Passengers 

/Year 

Distance 

(Miles) 

St. John 

St. Martin 

79 ,475 

108 

! ;. St. Martin 

St. John 

79,475 

108 

Port of Spain 

Bridgetown, Barbados 

77 , 143 

208 

Bridgetown, Barbados 

Port of Spain 

77,143 

208 

^ Santo Domingo, Dom. Rep. 

San Juan, Puerto Rico 

64 , 536 

234 

’ San Juan, Puerto Rico 

Santo Domingo 

64 , 536 

234 

X?. 6; St. Lucia 

Bridgetown, Barbados 

44 , 676 

120 

' v-f - Bridgetown, Barbados 

St. Lucia - 

42 , 132 

120 

Bridgetown, Barbados 

St. Vincent 

36,599 

120 

Panama 

San Jose, Costa Rica 

34 , 658 

350 

St. Vincent 

Bridgetown, Barbados 

31,938 

120 

San Jose, Costa Rica 

Panama 

31,126 

350 

i : ' Port Au Prince 

Santo Domingo 

31,730 

17 0 

San Salvador, El Salvador 

San Jose, Costa Rica 

30,939 

440 

v. • . San Jose, Costa Rica 

San Salvador, .El Salvador 

29,546 

440 

Santo Domingo, Dom. Rep. 

Port Au Prince, Haiti ■' 

25,931 

170 

■ Source: Summary Final 

Report (Civil Tiltrotor Missions and 

Amplications: 

A Research Study) , Boeinq 

Commercial 

Airplane Co . ; 
1987 (NASA CR 

Bell Textron , Boeing Vertol 
177452) 

, NASA ARC; July 
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FIGURE 8. AIR ROUTES BETWEEN ISLANDS OF THE CARIBBEAN BASIN 



27 


ORIGINAL PAGE IS 
OH POOR QUALITY 



FIGURE 9. 


1985 US - Caribbean Trade ($ in Millions) 


Item 

Value 

Value Transported 
By Air* 

Air Transport 
Cost (17%) 

Agricultural Foods 





$641 

$641 

$109 

Bananas 

423 

423 

72 

Sugars 

263 

263 

45 

Shellfish 

207 

207 

35 

Beef/Veal 

106 

106 

18 

Electronic Components 




Integrated circuits 

$170 

$170 

$29 

Switches 

66 

66 

11 

Capacitors 

28 

28 

5 

Sewn Products 
Lace Garments 

$82 

$62 

$11 

Women’s Apparel 

76 

57 

10 

Men’s Apparel 

67 

50 

9 

Body Supporting 

38 

29 

.5 

Garments 




Total 

$2,167 

$2,102 

$359 vx 


*100% for agricultural foods and electronic components; 75% for sewn products. 
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FIGURE 10 


INTERNATIO N AL TRADE BY AIR BETWEEN THE REGION AND THE UNITED 
STATES 

Air as % of Total by Value 

COUNTRY IMPORTS (%) EXPORTS (%) 


CARIBBEAN 


Bahamas 

14 

4 (50) 

Barbados 

25 

50 

Bermuda 

26 

40 

Cayman Islands 

12 

4 (4) 

Cuba 

8 0 " 

— 

Dominican Republic 

15 

21 

French Antilles 

24 

63 (64) 

Haiti 

31 

49 

Jamaica 

9 

4 

Leeward and Winward Islands 

25 

j= 41 (52) : 

Netherlands Antilles 

21 

0 (14) 

Trinidad & Tobago 

14 

0 (6) 

Turks & Caicos Islands 

16 

98 


SUB-TOTAL 


31 


6 (25) 





FIGURE 11. (SUMMARY DATA FOR HELICOPTER BASED EMERGENCY MEDICAL CENTERS IN 
THE UNITED STATES. (DATA PROVIDED BY ROCKY MOUNTAIN HELICOPTERS, INC.) 


Population with 50 miles of sponsoring hospital 1,177,850 

Number of beds of sponsoring hospital 675 

Annual transports: 

first year 370 

second year 462 

Annual transports per 100,000 31 

Percentage of transports to sponsor hospital.. ;60? 

Length of stay for helicopter transported patient. ..... 16 days 

Percentage of transports within 50 mile radius...' 75? 

Type of helicopter response: 

Hospital transfers 75? 

Scene pickups 25 % 

Patient diagnosis: 

Trauma/Surgical 45? 

Cardiac 15? 

Other medical.... 25? 

High risk mother/infant 10? 

Burns 5? 

Helicopter response to requests: 

Completed 90? ( 

Not completed: 

Bad weather 5? 

Other 5? 
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TABLEJ2.- COMPARATIVE ANALYSIS OF THE FIRST YEAR OF OPERATION OF EIGHT 

HOSPITAL-BASED REMS SYSTEMS 


Hospital/location 

Flights per 100,000 population 

John Lincoln/Phoenix, AZ 

41 

Emanual/Portland, Oregon or Maine? 

8 

University/San Diego, CA 

24 

Hermann/Houston , TX 

12 

St. Vincent/Toledo, OH 

25 

Baptist/Pensacola, FL 

71 

Latter Day Saints/Salt Lake City, UT 

63 

St. Anthony's/Denver, CO 

48 

Mean 

36.5 
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TABLE 13 •- SUMMARY CALCULATIONS FOR PREDICTING REMS REQUEST FOR CENTER 

LOCATED IN PUERTO RICO 



Total 

cases 

Pop. 

(%) 

Need 

{%) 

HEMS 

needed 

Demand 

{%) 

Predicted 
REMS calls 

MVA trauma, death likely 

516 

U 





Basic service area 


1 

50 

180.6 



Major service area 


XU 

5 

7.74 



Sub Total 




188.3 

25 

47.09 

MVA accident survivors 

38000 






Basic service area 


70 

5 

1330 



Major service area 


30 

2.5 

285 



Sub Total 




1615 

7.5 

121.13 

Falls and spinal cord inj. 

280 






Basic service area 


70 

75 

147 



Major service area 


30 

10 

8.4 



Sub Total 




155-4 

33 

91.28 

Burn victims 

1088 






Basic service area 


70 

10 

76.16 



Major service area 


■ 30 

5 

16.32 



Sub Total 




92.48 

40 

36.99 

Myocardial infarction 

5984 






Basic service area 


70 

10 

418.9 



Major service area 


30 

5 

89.76 



Sub Total 




508.6 

7.5 

38.15 

Cerebrovascular accid. 

5542 






Basic service area 


70 

5 

194 



Major service area 


30 

2.5 

41.57 



Sub Total 




235.5 

7.5 

17.67 

Pediatric and other emer. 

10200 






Basic service area 


70 

10 

714 



Major service area 


30 

5 

153 



Sub Total 



•; ■: 

667 

1.5 

130.05 

7 

TOTAL REQUESTS 






442.35 
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TABLE 14.- SUMMARY CALCULATIONS FOR PREDICTING REMS REQUEST FOR CENTER 

LOCATED IN GRENADA 



Total 

cases 

Pop. 

(%) 

Need 

(%) 

HEMS 

needed 

Demand 

(%) 

Predicted 
REMS calls 

MVA trauma, death likely 

127 






Basic service area 


98 

50 

62.23 



Major service area 


2 

5 

0. 127 



Sub Total 




62.36 

25 

15.59* 

MVA accident survivors 

10088 






Basic service area 


98 

5 

494.3 



Major service area 


2 

2.5 

5.044 



Sub Total 

' 



499.4 

7.5 

37.45 

Falls and spinal cord inj. 

249 






Basic service area 


98 

75 

183 



Major service area 


2 

10 

0.498 



Sub Total 




183.5 

33 

60.56 

Burn victims 

960 






Basic service area 


98 

10 

94.08 



Major service area 


2. 

5 

0.96 



Sub Total 




95.04 

40 

38.02 

Myocardial infarction 

5280 






Basic service area 


98 

10 

517.4 



Major service area 


2 

5 

5.28 



Sub Total 




522.7 

7.5 

39.20 

Cerebrovascular accid. 

4890 






Basic service area 


98 

5 

239.6 



Major service area 


2 

2.5 

2.445 



Sub Total 




242.1 

7.5 

18. 15 

Pediatric and other emer. 

9000 






Basic service area 


98 

10 

882 



Major service area 


2 

5 

. 9 



Sub Total 




891 

15’’ 

133.65 s 

TOTAL REQUESTS 






342.62 
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TABLE15. - POPULATION WITHIN RANGE OF SELECTED ISLANDS OF THE CARIBBEAN BASIN 



Population 

in 

1982 Est. 

Population 
within 
150 miles 

Population 
within 
200 miles 

Population 
within 
300 miles 

Antigua and Barbuda 

77000 

825000 

1076000 

4846000 

Barbados 

260000 

924000 

2164000 

2614000 

Br. Virgin Islands 

11000 

3438000 

3527000 

9582000 

Dominica 

. 75000 

1077000 

1449000 

2741000 

Dominica Republic 

5660000 

10805000 

10805000 

14202000 

Grenada 

112000 

2089000 

' 2164000 

-2573000 

Guadeloupe 

320000 

949000 

. 1193000 

4846Q00 

Haiti 

5145000 

10805000 

10805000 

13040000 

Jamaica 

2235000 

2235000 

2235000 

7380000 

Martinique 

300000 

1408000 

1449000 

2730000 

Montserrat 

12000 

825000 

1076000 

1576000 

Puerto Rico 

3270000 

3397000 

3438000 

95070000 

St. Kitts, Nevis, Angila 

41000 

652000 

4222000 

4734000 

St. Lucia 

124000 

1319000 

2573000 

2614000 

St. Vincent, Grenadines 

128000 

2164000 

2484000 

.2614000 

Trinidad, Tobago 

1165000 

1405000 

1789000 

. 2164000 

U. S. Virgin Islands 

116000 

3438000 

3847000 

9880000 
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FIGURE 16. SUMMARY ESTIMATES FOR PREDICTED HEMS REQUESTS 
I FOR COUNTRIES OF THE CARIBBEAN BASIN 


Country : 

Estimate of 
HEMS Calls/year 

Bahamas 

20.6 

Colombia 

2858 

Costa Rica 

249 

Cuba 

825 

Dominican Republic 

577.5 

El Salvador 

488 . 6 

Guatemala 

826.9 

Grenada 

342 . 6 

Haiti 

613.4 

Honduras 

443 . 7 

Jamaica 

216.95 

Mexico 

7776.3 

Nicaragua 

275.5 

Panama 

191.2 

Puerto Rico 

442.4 

Venezuela 

1797.9 


Total 


17945.55 


PRESSURE ALTITUDE, ft 
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FigureJ?.- Seat/mile costs of XV-15 Tilt Rotor 
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XV-15 CABIN DIMENSIONS 


GROUND LINE 


XV-15 THREE-VIEW 


(a) XV-15 cabin dimensions 


(b) XV-15 three-view 


Figure 28.- Dimensions of XV-15 Tilt Rotor in meters 
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FIGURE 


19. RESULTS OF SIMULATION: THREE STANDARD HELICOPTERS 
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FIGURE 20. RESULTS OF SIMULATION: TWO TILTROTORS 



1 360 69 58 33 7 I 17 Hh 

t-SaBUi..': 

eg 9d 33 . ; ■ » 

CntrStatRcud Bird Rnqe total Ru. resc. Ru. mait Fit Hrs. flu. Dist 
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FIGURE 21 


RESULTS OF SIMULATION: ENTIRE REGION 
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Number of Rotorcraft Flights 
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Hug ti'cit for Hotcrcraft arrival 
Hug Total Transfer Time 
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BIRDS 


A program to simulate rotorcraft rescue operations 


Robert W. Smith 
University of Puerto Rico 
Mayaguez, Puerto Rico 



BIRDS 

A program to simulate rotorcraft rescue operations 


Robert W. Smith 
University of Puerto Rico 


Problem/Function Definition 

In order to evaluate rotorcraft rescue operations and compare the 
effectiveness of different aircraft and center locations there are 
several key questions which must be considered. For a given con- 
figuration of rotorcraft and center locations what percentage of 
the incidents are within range? What is the average rescue time? 
How long must the victims wait before arrival of the rotorcraft? 
What is the average distance of the rescue flight? How many calls 
are missed due to downtime caused by repair or weather conditions? 
How important is speed in making a significant reduction in 
response time? What is the optimal location of the rotorcraft 
bases to reach the most calls in the least time? This simulation 
attempts to answer some of these questions in order to help to 
make a comparison between different aircraft and center locations. 

Method of Solution 

This program is a finite event Monte Carlo simulation of aircraft 
operations. After accepting information relating to aircraft 
capacities, center locations and regions in which a user supplied 
percentage of accidents occurs the program generates accidents and 
simulates rescue operations in order to collect pertinent data for 
comparison of different conf igurat ions of center locations and 
aircraft capacity. 

While the initial application was for rotorcraft rescue operations 
the simulation can be used for any operation in which incidents 
occur in specified regions which must be responded to by aircraft 
located at fixed centers. The program can generate a map of any 
region of the world or maps previously created by other programs 
may be imported for use by the simulation. The program generates 
accidents in a given region according to criteria input by the 


user and then calculates the time required for an aircraft to 
reach the location at which the accident occurred. The availabil- 
ity of an aircraft depends on its location, range, speed, and 
whether or not it is currently being used for a previous call or 
is out of service due to repairs or bad weather. The program 
accepts as input the locations and categories of centers, the num- 
ber and capacity of aircraft at each center, the region in which a 
given percentage of accidents will occur, and other data relating 
to rescue time, response time, etc. 

The program was developed on a Macintosh micro-computer using the 
Turbo Pascal language and makes extensive use of graphics for both 
input of data and illustration of the simulation. The output of 
the program includes the average wait time before an accident is 
reached by an aircraft, the average rescue time before the victim 
is taken to the nearest appropriate hospital, the number of acci- 
dent victims which were not rescued due to the lack of an avail- 
able helicopter, and the number of hours per week that each air- 
craft spends flying. Figure 1 illustrates the results of a simu- 
lation. 


Implementation Instructions 


The program was compiled using Turbo Pascal. The only files nec- 
essary in order to run the program are the compiled program called 
’BIRDS’ and a map file ’World.dat’ which contains a data repre- 
sentation of a map of the world. The program can be run on any 
Macintosh computer with as little as 512K memory for the small map 
data file version. To run the program simply click on the file 
’BIRDS’. 


User Instructions 


The program follows the guidelines for a standard Macintosh appli- 
cation with few exceptions and is therefore quite self explana- 
tory. After the initial ’about’ display the user is presented 
with the option of selecting between several pull down menus. A 
description of each item follows: 

FILE: 

NEW: This selection will import the picture currently in the 

scrap area to be used as a map for a simulation. You must have 
used the copy command to place a map 
on the ’scrap’ before using this command. 

OPEN: This selection will produce a standard file dialog and ask 

the user to select a previously saved file to re-run a simula- 
tion . 


SAVE: This selection is used to save a file in order to re-run a 

simulation . 


QUIT: This selection will terminate the program and return the 
user to the desktop. 


EDIT: 

COPY: This selection will place the current map on the ’scrap’ so 
that it may be altered using a drawing program such as MacPaint. 

SIM: 

RUN: This selection will begin the simulation once a map has been 
selected. 


MAP: 

NewMap: This selection will cause a map of the entire world to be 
displayed on the screen and direct the user to select a sub- 
region by using the mouse to enclose it with a rectangle. The 
sub-region will then be re-displayed in greater detail in order 
to be used for the simulation. 

OpenMap: This selection is used to select a previously saved map 

file to be used for the current simulation. 

FromScrap: This selection will import the picture currently in 
the scrap area to be used as a map for a simulation. You must 
have used the copy command to place a map on the scrap’ before 
'• using this command. 

SaveMap: This selection is used in order to save the current map 

file for later use. 


After a map has been created or loaded from disk the user should 
select the RUN command. At this point the map will be re-drawn 
and the user will be asked to supply information for the simula- 
tion. The following information is required: 

(1) The user will be asked to use the mouse to indicate a dis- 
tance of one hundred miles. This distance will be used to calcu- 
late the range and speed of aircraft in the simulation. 



(2) The user will then be asked to indicate the locations ot the 
hospitals by clicking with the mouse. After all hospitals have 
been located the user must click the mouse in the ’OK’ rectangle. 

(3) For each hospital the user will be asked to indicate the 
number and capacity of all aircraft located at this center. In 

addition the user is asked to indicate the ’status’ of this cen- 
ter. A status of three is used to indicate a full trauma center 
which can handle all accidents. A level two center is a secondary 
level center which can not service the most serious emergencies. 

(4) After all hospitals have been located and information supplied 
about the aircraft located at each center the user is asked to 
indicate the ’high accident regions’. These regions are indicated 
by using the mouse to enclose a series of rectangles. After these 
regions have been created the user must click the mouse in' the 
’OK’ box. At this point the program will ask for the percentage 
of accidents which will occur in the ’high accident region’. 

(5) After the user has indicated what percentage of accidents are 

to occur in the ’high accident region’ the program will present a 
dialog box with nine questions along with default answers about 
the current simulation: The user can use the default values to 

change any or all of the values. An item can be selected either 
by using the mouse to move to another item or by using the ’TAB’ 
key to move on to the next item. Pressing the ’ENTER’ key signals 
the program to accept the current values and continue with the 
simulation. The information to be supplied is as follows: 

(a) Number of accidents/year requiring Rotorcraft. 

(b) Percentage of accidents which must be taken to a level 3 
Trauma Center. 

(c) Percentage of ground transport ambulance accidents which 
will later need air transfer. This is used to estimate the 
number of air transfers from centers without aircraft to 
another center. 

(d) Percentage of transfer which must go to a level 3 trauma 
center . 

(e) Hours/week that aircraft are out of service due to mainte- 
nance. 

(f) Average duration of Maintenance (in minutes). 

(g) Average duration of weather downtime ( in minutes). 

(h) Average time on ground to pick up a patient. 

(i) Average time to respond to call. 


(6) After the user has pressed ’ENTER’ or used the mouse to click 
in the ’OK’ button to indicate his acceptance of the displayed 
values to the above questions the program will ask if he wants to 
save the file with the current information for future use. 

(7) Finally the program will ask for the simulation time in weeks. 


At this point the simulation will begin and the rescue operations 
will be indicated on the screen as the simulation progresses. 
After the simulation is finished the user will be asked to press 
the ’ENTER’ key in order to see the data for the completed simula- 
tion. before pressing the ’ENTER’ key the user might want to 
press the key combination ( ’ Shift ’/’ Command ’/’ 3 ’ ) in order to 
save the current display on disk or ( ’ Shi ft ’/’ Command ’/’ 4 ’ ) in 
order to send the display to the printer. After the user presses 
the ’ENTER’ key the data indicating the results of the simulation 
is displayed on the screen. An example of this data follows: 


r * File Edit 


Map 


1 : 24: 47 


8 UJeek Simulation Time 

Number of Rotorcraft Flights 
flug Distance to Scene 
Rug Wait for Rotorcraft arriual 
flug Total Transfer Time ^ 



Missed (out of Range) 12 

Missed (Unauailable) 4 

f Re-Simulate ) 

toil urfj.i ria l [ print ) [ ok ) 


San Juar Status = 3 Flights Received 



(min.) 

(min.) 

64 

1 19 

40 

64 

1 19 

40 


Grenada Status = 3 Flights Received 



(min.) 

(min.) 

61 

107 

37 

6T 

107 

37 





The top section includes global information for all of the centers 
in the simulation. The bottom section includes information for 
one center. The user can cause information for the next center to 
be displayed by pressing the ’ENTER’ key or by clicking in the 
’NEXT CENTER’ button with the mouse. 


For each center the information displayed includes the center 
name, the status of the center and the number of flights received 
by the center. 


■ For each aircraft located at a center the following information is 
displayed: 


(a) 

i '-.(b) 

<c) 

’ i ^ . v 


W ! -(e) 
: A ( f ) 

#;•>'•( g ) 

. : . 1 / , v 


The number of the aircraft. 

The range of the aircraft. 

The number of flights by this aircraft during the simulation. 
The average total rescue time for this aircraft. This 
includes response time, flight time and pickup at time. 

The average time spent waiting for this aircraft. 

The average number of flight hours per week. 

The average distance to the scene of the accident. 

A histogram of flight distances. 


v<v * ,' • 

"•* • < 'ir ^ / ", • 

:• 
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• « fo. ? • i 
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The user may select the ’PRINT’ button with the mouse in order to 
print out a summary of this information. Selecting the ’Re- 
Simulate’ button causes another simulation to be run using a dif- 
ferent time frame if desired. By selecting the ’OK’ button the 
user can return to the original initial level in which the pull 
down menus are again activated. 


FIGURE 1. GRAPHICAL DISPLAY OF SIMULATION 
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The following pages contain a listing of the entire program. 




Program Birds; 


{ $U Birds: Units. F: Sim. Lib } 
{$0 Birds: Birds} 

{$R Birds : birds . Rsrc } 

{$B+} 

{$S+} 

{ $R+ } 


uses 

{$S } Memtypes, QuickDraw, OSIntf, Toollntf, Packlntf , sane, 

MacExtras, BirdGlobals, Dialogunit,MacPrint, 

{ $S Sim } BirdSim, MapMer ; 


const 

WindowID = 1000; 
WindowXD2 .= 1001; 
FilelD = 2; 

SimID = 1000; 
MapID = 1003; 

Newcmd = 1 ; 
CloseCmd = 2; 
OpenCmd = 3 ; 
SaveCmd = 4; 
QuitCmd = 5; 

copyCmd = 3 ; 
pasteCmd = 4; 

RunCmd = 1; 

NewMap = 1 ; 

OpenMap = 2 ; 

FromScrap = 3; 

SaveMap = 4; 

var 


spt,ppl 

RefN 

PP 

phi 

Hndl 

Lnth, Offset 

SimMenu 
MapMenu 
done, ok 
quitRequested 
windowOpen 


: ptr; 

: Integer; 

: picptr; 

: PicHandle; 

: Handle; 

: Longint; 

: MenuHandle; 
: MenuHandle; 
: Boolean; 

: Boolean; 

: Boolean; 


Procedure dokeypress( ch : char); 

{ do something with incoming char } 
begin 



end; { of dokeypress } 


procedure domouseclick ( whichwindow : windowptr ); 

{process mouse clicks inside windows } 

Begin; 

end; { domouseclick } 


Procedure SetupWindow; 
begin; 

If not windowOpen then 
begin 

wPtr := GetNewWindow ( WindowID, @Wrec, Pointer ( -1 ) ); 
windowOpen := wPtr <> NIL; 

If windowOpen Then 
begin 

SetPort ( wPtr ) ; 

SelectWindow (wPtr) ; 

{ ClipRect ( wPtr''. portRect ); } 

MapFrame := wPtr A .portRect ; 

InsetRect (MapFrame, 3, 13) ; 
off setRect (MapFrame, 0, 12) ; 

SetRect (TxtFrame, 3,10,509,25); 

ClipRect ( MapFrame ) ; 
end 
end 
end; 


Procedure DoNew; { get Picture from the scrap } 
begin 

SetupWindow; 

readdat := fal ser- 
if (length (Data. MapName) =0) then KillPicture (ph) else ReleaseResource (Hndl) ; 

{ Kill old Pic, if MapName=' ' then it came from scrap or NewMap else a resource file } 
Hndl := NewHandle (0) ; 

lnth := GetScrap( Hndl, 'PICT' , offset) ; { Get Handle from scrap } 

if (lnth = NOTypeErr) then 
begin 

ClipRect ( wPtr'' . portRect ); 
gotoxy (1,1); cleareol; 

writeln('No Map on scrap. You must "copy" one from the ScrapBook (Press retu 
readln; gotoxy (1, 1) ; cleareol; 

ClipRect (MapFrame) ; 
end 

else 

begin 

ph := picHandle ( Hndl); { convert it to Pic Handle } 

DrawPicture ( ph, MapFrame); 

{ SetWindowPic ( wPtr, ph ); ??? } 

Enah>leltem( fileMenu, CloseCmd ); 

Disableitem(filemenu, Newcmd ); 

Enableltem( SimMenu, RunCmd) ; 
end; 

end; { doNew } 


procedure closeprogramwindow; 

{ close the global wptr window } 
begin 

if windowopen then 
begin 

closewindow (wptr ) ; 
windowopen := false; 
Enableitem(filemenu, newcmd ); 



Disableitem (filemenu, closecmd ); 

Disableitem (Editmenu, copycmd ); 

end {if } 

end; {closeprogramwindow } 
procedure doclose; 

{ respond to file menu close command } 
begin 

readdat := false; 

if (length (Data. MapName) = 0) then KillPicture (ph) 

else ReleaseResource (Hndl) ; 

Data . MapName : = ' ' ; 
if frontwindow = wptr 
then closeprogramwindow 
else closedawindow; 
windowopen := false; 
end; { doclose } 


Procedure GetMap ( ResName : string255) ; 
var 

name : string255; 

begin 

SetupWindow; 

if (length (Data. MapName) = 0) then KillPicture (ph) 

else ReleaseResource (Hndl) ; 

name := 'thepic'; 

Refn := OpenResFile (Resname) ; 

Hndl := NewHandle (0) ; 

Hndl := GetNamedRe source ( 'PICT 1 , name); 

DetachRe source ( Hndl) ; 
ph := PicHandle (Hndl) ; 

{ save it to the scrap also , this may not be a good idea } 

{ Lnth := zeroscrap; } 

{ Lnth := ph"' 7 ' .picsize; } 

{ Lnth := putscrap (lnth, 'PICT' , Hndl'') ; } 

CloseResFile (Refn) ; 

DrawPicture ( ph ,MapFrame); 

{ SetWindowPic ( wPtr, ph ) ; } 

end; { of GetMap } 


Procedure MapOpen; 
var 

okayflag 
ResName 
id 

reply 
where 
typelist 
fileKind 
begin 

readdat := false; 
fileKind := 'MAPAV 
typelist [0] := fileKind; 
where. h := 60; where. v := 50; 

SFGetFile (where, ' ' ,NIL, 1, typeList, NIL, reply) ; 
Resname := reply. f name; 

GetMap (ResName) ; 

data . MapName : = Re sName ; 

Enableltem( fileMenu, CloseCmd ); 
Disableitem ( fileMenu,NewCmd ); 


boolean; 

string255; 

integer; 

SFReply; 

Point; 

SFTypeList; 

OSType ; 


{ ignored if -1 in 4th parm } 



Enableltem { SimMenu, RunCmd) ; 
Enableltem ( EdtMenu, copycmd) ; 

end; 


Procedure mapSave; 
var 


okayflag 

boolean; 

name, Resname 

String255; 

id, errl, err 

integer; 

where 

point; 

reply 

SFReply; 

vRefNum 

integer; 

fndrlnfo 

FInfo; 

volName 

StringPtr; 

OSerror 

OSErr; 

Hndll 

Hande; 

begin 


SetupWindow; 



where. h := 60; where. v := 50; 

SFPutFile (where, 'Save File as : ' ,NIL, reply) ; 

Resname : = reply . f name ; 

name := ' thepic'; 

CreateResFile (Resname) ; 
errl : = ResError; 
if ( errl <> 0 ) then begin 

gotoxy (1,1) ; cleared; 

write (' creat ERROR # ',errl, ' Hit Return to continue '); 

readln; gotoxy (1,1) ;cleareol; 

end; 

RefN:= OpenResFile (Resname) ; 

err:= ResError; 

if ( err <> 0 ) then begin 

gotoxy (1,1); cleared; 

write ( ' creat ERROR # ',err, ' Hit Return to continue '); 

readln; gotoxy (1,1) ;cleareol; 

end; 

if ( errl = -48 ) then { file already exists, so replace contents } 
begin 

Hndll := NewHande(O); 

Hndl := GetNamedRe source ( 'PICT' , name) ; 

RmveResource (Hndll) ; 

DisposHande (Hndl) ; 
end; 

id := UniquelD ( ' PICT ' ) ; 

Hndl := NewHande (ph^ A .picsize) ; 

Hnd := Hande(ph); 

DrawPicture (Pichande (Hnd) ,MapFrame) ; { lets see it again } 

HNoPurge (Hnd) ; 

AddResoiorce ( Hnd, 'PICT', id , name) ; 

err := ResError; 

if ( err <> 0 ) then begin 

gotoxy (1, 1) ; cleared; write (' ADD ERROR # ’,err); readln; 
end; 

HPurge (Hnd) ; 

CloseResFile (RefN) ; 

OSerror := GetVol ( volName, vRefNum) ; 

OSerror := GetFInfo (Resname, vRefNum, fndrlnfo) ; 



fndrlnfo. fdType := 'MAPA'; { make it a MAPA file Type } 

OSerror := SetFInfo (Resname, vRefNum, fndrlnfo) ; 

data.MapName := ResName; { Map Name stored in 'data' so can call it back } 
end; 


Function getdatfile ( VAR done : Boolean ) : Boolean; 
var 

okayflag : boolean; 

folder. Filename : String [ 64 ]; 

reply : SFReply; 

begin 

okayflag := false; 
inName := ' 1 ; 

if GetFileName (reply, 'DATA' ) then inName := reply. fName; 
done := length ( inName ) =0; 

If not done Then 
begin 

{ $i— } Reset ( datafile, inName ); 
read( datafile. Data ); 
close (datafile) ; 

{$i+} 

If IoResult <> 0 
then begin 

gotoxy(l,l); cleared ; Write ( 1 ERROR: cannot find/read ', inName ) 
end 

else 

okayflag := ( IoResult = 0 ); 
end; 

getdatfile := okayflag; 
end; 


procedure dofilemenucommands ( cmdnumber : integer ); 

{ excute command in the file menu } 
begin 

case cmdnumber of 
newcmd : donew; 

OpenCmd : begin 

readdat := GetDatFile (ok) ; { readdat true tells sim we have a file } 
GetMap (data . MapName ) ; 

Enableltem ( SimMenu, RunCmd) ; 

Enableltem ( EditMenu, copycmd) ; 

end; 

SaveCmd : begin end; { nothing hear now } 
closecmd : doclose; 
quitcmd : quitrequested := true 
end {of case } 

end; { dofilemenucommands } 

procedure doeditmenucommands ( cmdnumber : integer ) ; 

{ execute command in the edit menu } 
begin 

if not systemedit ( cmdnumber -1 ) then 
begin 

case cmdnumber of 

copyCmd : begin { save it to the scrap } 

Hndl := NewHandle (Sizeof (ph) ) ; 

Hndl : = Handle (ph) ; 

Lnth := zeroscrap; 



Lnth := ph AA .picsize; 

Lnth : = put scrap (lnth, ' PICT ' , Hndl A ) ; 
end; 

pasteCmd : begin { get it from the scrap } 
doNew; 

. Data . MapName : = 1 ' ; { empty Mapname => can ' t 
end; 

end; { of case } 


end {if } 

end; { doeditmenucommands } 


procedure doMapMenucommands ( cmdnumber : integer ) ; 

{ excute command in the Map menu } 
begin 

EraseRect (MapFrame) ; 

Framerect (MapFrame) ; 
case cmdnumber of 
NewMap : begin 

SetupWindow; 
readdat := false; 

Data . MapName : = 1 ' ; { empty Mapname => can ' 

Ge tMapC WORLD' ) ; 

MakeMap; UnloadSeg (SMakeMap) ; 

{ SetWindowPic ( wPtr, ph ) ; } 


{ save 

{ 

{ 

{ 

{ 

{ 


it to the scrap also , this may not be a good 


Hndl 

:= NewHandle (Sizeof (ph) ) ; 

} 

Hndl 

:= Handle (ph) ; 

} 

Lnth 

:= zeroscrap; 

} 

Lnth 

;= ph AA .picsize ; 

} 

Lnth 

:= put scrap (lnth, 'PICT' ,Hndl A ) ; 

} 


Enableltem ( 
Enableltem ( 
Enableltem ( 
end; 


SimMenu, RunCmd) ; 
FileMenu, CloseCmd) ; 
EditMenu, CopyCmd) ; 


OpenMap : begin 

MapOpen; 

Enableltem ( EditMenu, CopyCmd); 
end; 


FromScrap 


SaveMap 
end {of case 


} 


Begin 

doNew; 

Data . MapName 
end; 

mapSave ; 


end; { doMapmenucommands } 


' ' ; { empty Mapname => can ' t 


Procedure ActivateEvents; 

Begin 

with theEvent Do 
Begin 

whichWindow := WindowPtr( message ); 
SetPort ( whichWindow ) ; 

If BitAnd( modifiers, activeFlag ) <> 0 
then FixEditMenu( False ) 
else FixEditMenu( True ) 

end 

end; 


save datfile) 


save datfile} 


idea } 


save datfile} 



{ read menu resources } 


Procedure SetupmenuBar; 

Begin 

appleMenu 
fileMenu 
editMenu 
SimMenu 
MapMenu 


= GetMenu ( Appleid ) ; 
= GetMenu ( FilelD ); 

= GetMenu ( Edit ID ) ; 

= GetMenu ( SimID ) ; 

= GetMenu ( MapID) ; 


InsertMenu ( 
InsertMenu ( 
InsertMenu ( 
InsertMenu ( 
InsertMenu ( 
AddresMenu ( 
DrawMenuBar 
end; 


AppleMenu, 0 ) ; 
fileMenu, 0 ) ; 
editMenu, 0 ) ; 

SimMenu, 0 ) ; 

MapMenu, 0 ) ; 

appleMenu, 'DRVR' ); { add desk accessory names } 


Function QuitConfirmed : Boolean; 

{ shut the sucker down } 
begin 

if quitRequested then 

if windowopen then CloseProgramwindow; 
QuitConfirmed := quitrequested; 
end; { quit } 


Procedure DoSystemTasks; 

Begin 

SystemTask; 

If FrontWindow = NIL Then 
begin 

FixEditMenu ( False ) ; 

Enableltem( MapMenu, NewMap ); 
Enableltem( MapMenu, OpenMap ); 
Enableltem( MapMenu, FromScrap) ; 
Enableltem( MapMenu, SaveMap ); 
Enableltem ( EditMenu, PasteCmd) ; 
Disableltem( fileMenu, CloseCmd ); 
end Else 

If FrontWindow <> wPtr Then 
begin 

FixEditMenu ( Time ) ; 

Enableltem ( fileMenu, CloseCmd ) 
end { else / if } 
end; { dosystemtasks } 


Procedure Docommand ( command : longint ) ; 

{ execute a menu command } 
var 

whichmenu : integer; 

whichitem : integer; 

begin 

whichmenu : = hi word ( command ) ; 
whichitem := loword( command ); 
case whichmenu of 

appleid : doapplemenucommands ( whichitem ) ; 

f ileid : dof ilemenucommands ( whichitem ) ; 

editid : doeditmenucommands ( whichitem ) ; 

simid : begin 

SetupWindow; 



EraseRect (wptr'' .portRect) ; 
simulate; UnloadSeg (Ssimulate) 
end; 

Mapid : doMapMenucommands ( whichitem) ; 


{ add other program menus here } 
end; { case } 

hilitemenu( O') { unhighlit menu title } 
end; { docommand } 


procedure MouseDownEvents; 

{ check location and respond to mouse button } 


var 

partCode : Integer; { what item was clicked } 
begin 

with theEvent do 
begin 

partCode := FindWindow( where, whichWindow ); 
case partCode of 


inMenuBar 

insyswindow 

incontent 


docommand ( menuselect ( where ) ) ; 
systemclick( theEvent, whichwindow ); 

: if whichwindow <> frontwindow 

then selectwindow ( whichwindow ) 
else doMouseClick ( whichwindow ); 
inDrag : Dragthewindow ( whichwindow, where ) ; 

ingrow : if whichwindow <> frontwindow 

then selectwindow ( whichwindow ) 
else resizeWindow (whichwindow, theevent. where) ; 
ingoaway : if trackgoaway (whichwindow, where ) 

then doclose; 

inzoomin, inzoomout 

: if trackbox( whichwindow, where, partcode ) 
then zoominout ( whichwindow, partcode ) 

end { case } 
end { with } 

end; { mousedowne vents } 


procedure keydownevents; 

{ a key was pressed, do something with char } 
var 

ch : char; 
begin 

with theEvent do 
begin 

ch := chr(BitAnd( message, charCodeMask ) ); { get character } 
if BitAnd( modifiers, CmdKey ) <> 0 { in command key pressed } 
then doCommand ( MenuKey ( ch ) ) { then execute command } 
else doKeypress ( ch ) { else use character } 

end { with } 
end; { keydownevents } 


{ MAIN Program } 

Begin 

Data . MapName : = 1 ' ; 

ph : = PicHandle (NewHandle (0) ) ; 



Hndl := NewHandle ( 0) ; 
ppl := Newptr( 0); 

SetUpMenuBar ; 
quitRequested := False; 
windowOpen := False; 

Displ ayAboutBox ; 

Repeat 

Dosy stemTasks ; 

If GetNextEvent ( everyEvent, theEvent ) then 
case theEvent . what of 

MouseDown : mouseDownEvents; 

KeyDown : keyDownEvents; 

AutoKey : { ignored } ; 

ActivateEvt : ActivateEvents 

end { of Case } 
until QuitConfirmed 
end. 



UNIT BirdSim ( 130 ); 


{$0 Bird: Units. F: Sim. Lib } 
{ $U Bird: Units. F: Sim. Lib } 

INTERFACE 


USES 

Memtypes, QuickDraw, OSIntf, Toollntf, Packlntf, sane, MacPrint, 
BirdGlobals,MacExtras, Dialogunit ; 

type 

tcall = record 
location : point; 
destination : point; 

priority : integer; { 0= can wait . . 2=>go to 2-cntr, 3=> to 3-cntr } 

time : extended; 

jobtyp : integer; { 3 = transfer, 4 = accident } 

end; 


Procedure Paintcircle (pt: point; r:real); 

Procedure Printresult; 

Function Findist ( pi, p2 : point) : extended ; 
Procedure addq (x : tcall); 

Procedure Delq; 

Function Expo (x : extended) : extended; 

Function Norm (u, v : extended) : extended; 

Procedure Nextevent; 

Procedure Choosbird (pi, p2 : point; 

var distance, wtime, rtime, ftime : 
var avail : 

Procedure Genaccident ; 

Procedure Choosdest (var dest, loc : point; 

priority : integer; var distance 


Procedure 

Procedure 

Procedure 

procedure 


Gentransf ; 
Fly; 

Simulate; 

initialize; 


extended; 
integer ) ; 


: extended) ; 


IMPLEMENTATION 

Const one = 1; 

keyReturn = 36; 
keyEnter = 76; 


Questld =1010; 
WindowID2 =1001; 
Askld =1000; 
Rplld =1020; 
HospQId =1030; 
BirdQId =1040; 

IstEditltemAsk =3; 
IstEditltemRpl = 5; 
IstEditltemHpQ = 2; 


{ resource ID for ask Dialog } 

{ resource ID for report Dialog} 



IstEditltemBdQ 


2 ; 


MaxFieldAsk - 10; 

MaxFieldRpl = 6; 

MaxFieldHpQ = 3; 

MaxFieldBdQ = 2; 


NMaccidltem = 1; 

Perachiltem = 2; 

Perctrmaltem = 3; 

Pertranhiltem = 4; 

Per crpr Item = 5; 

Durrprltem = 6; 

percbwthrltem = 7; 

durwthrltem = 8 ; 

Pickuptltem = 9; 

Respondtltem = 10; 


Var 

wRec2 : windowRecord; 

wPtr2 : WindowPtr; 


ItemHandles 

Pnt 

dPtr 

itemNo 


ARRAY [1. .MaxFieldAsk] of Handle; 

: Point; 

: DialogPtr; 

: integer; 


hirgn, tmprgn 

ansrct, tmpRect 

ii, jj,t count, birdnum, eventyp 

died, destcntr, toofar 

xl iml , xlen, yliml , y len 

simtime, clock, min, rtime, ftime 

inref, outref, nextweather 

percinl 


rgnhandle; 

rect; 

integer; 

integer; 

extended; 

extended; 

extended; 

extended; 


refuse 

nextrepair 

nextaccident, nexttransfer 
transferq 


array [ 1 .. nbds , 1..4] of integer; 

{ 1-repair, 2-weather, 3-trans, 4-accid } 

array [ 1 .. nbds ] of extended; 

tcall; 

array [1 .. 100] of tcall; 


DefStatus, DefNum,Def Speed, DefRange : longint; { default variables } 

DefName : String255; 


Procedure MakeHist( M,N : Integer; Hst: Ivect; F : Rect ); 

{ Make a histogram of the values in Hst } 

{ each N values to be grouped together } 

{ M is the Max Index of Hst to be considered. ( N should div M+l ) } 
Var 

P1,P2,P3, P4,P5 
Bar 

I , J, Num, tmp 
Ht,Wth,dl,Max 
Count 
Hmult 
Pat 

Begin 

PenPat ( Black) ; 

Pat [1] :=White; Pat [2] :=LtGray; 

Pat [3] :=Gray;Pat [4] :=DkGray;Pat [5] :=Black; 


t'oinu; 

Rect; 

Integer; 

Integer; 

Ivect; 

real; 

Arrav FI. .51 


of Pattern; 



PI := F.TopLeft; 

P2 := F . BotRight ; 

P3.h := Pl.h; P3.v:=P2.v; 

Ht := P2.v - Pl.v; 

Wth := P2.h - Pl.h; 

Num := (M+l) div N; 
dl := Wth div Num; 

Max : = 0 ; 

For I := 0 to Num-1 do 

begin { partition Hst into Num subgroups of size N, then sum } 

tmp : = 0 ; 

for J := 0 to N-l do tmp := tmp+Hst [ (I*N) + J] ; 

Count [I] := tmp; 

if ( tmp > Max ) then Max := tmp; 
end; 

Hmult := Ht / Max; { ******** error if Max = 0 ***** } 

P5.v := P2.v; 

For I := 0 to (Num-1) do 
begin 

P4.h := Pl.h + I*dl; 

P4.v := p2.v - round (Count [I] *Hmult) ; 

P5.h := p4.h + dl; 

moveto(p5.h,p5.v) ; Lineto(p5.h,p5.v-l) ; 

Pt2Rect (p4,p5,Bar) ; 

FillRect (Bar, Pat [ ((I mod 5) +1) ]); 

FrameRect (Bar) ; 
end; 

moveto(pl.h,p2.v) ; Lineto (p2 .h,p2 .v) ; 

FOR I := 0 TO MAX DO 
begin 

dl := round (i*Hmult) ; 

moveto(pl.h,p2.v-dl) ; lineto (pi. h+l,p2.v-dl) ; 
end; 

end; { of MakeHist } 


Procedure VartoDialog( field : Str255; itemNum : Integer ); 

Begin 

SetIText ( itemHandles [ itemNum ] , Field ) ; 
end; 

Procedure DialogToVar( Var field : Str255; len, itemNum : Integer ); 
Begin 

GetIText ( itemHandles [ itemNum ] , field ) ; 

If Length ( field) > len 

Then field := copy( field, 1, len) 
end; 

Procedure asktoDialog; 
var 

s : str255; 

inmaccid, iperachi, iperctrma, ipertranhi, ipercrpr, idurrpr : integer; 
ipercbwthr,idurwthr,ipickupt, irespondt : integer; 

Begin 

with Data do 
begin 

inmaccid := trunc (NMaccid) ; 

iPerachi := trunc (perachi * 100); 

iperctrma := trunc (perctrma * 100); 
ipertranhi := trunc (pertranhi * 100); 
ipercrpr := round (percrpr*168 . 0) ; 



idurrpr := trunc (durrpr) ; 
ipercbwthr := round (percbwthr * 720 . 0) ; 
idurwthr := trunc (durwthr) ; 

ipickupt := trunc (pickupt) ; 

irespondt := trunc (re spondt) ; 

SeliText (dPtr, IstEditltemAsk, 0, 0); 

NumToString (iNMaccid, s) ; vartoDialog (s,NMaccidItem ); 
NumToString(iPerachi, s) ; vartoDialog (s, Perachiltem ); 
NumToString (iperctrma, s) ; vartoDialog (s, Perctrmaltem ); 
NumToString (ipertranhi, s) ; vartoDialog (s,pertranhiltem) ; 
NumToString (iPercrpr, s) ; vartoDialog (s, Percrprltem ); 
NumToString (idurrpr, s) ; vartoDialog (s, durrprltem ); 
NumToString (ipercbwthr, s) ; vartoDialog (s,percbwthrltem ); 
NumToString (idurwthr, s) ; vartoDialog (s, durwthr Item ) ; 
NumToString (ipickupt, s) ; vartoDialog (s, pickupt Item ); 
NumToString (irespondt, s) ; vartoDialog (s, re spondt I tern ); 
SeliText (dPtr, IstEditltemAsk, 0,MaxInt) ; 

end; 

end; 


Procedure DialogToAsk; 
var 

s : Str255; 

inmaccid, iperachi, iperctrma, ipertranhi, ipercrpr, idurrpr 
ipercbwthr, idurwthr, ipickupt, irespondt 


begin 

with Data do 
begin 


DialogtoVar (s, 6,NMaccidItem) ; 
DialogtoVar (s, 6, Perachiltem) ; 
DialogtoVar (s, 6, perctrmaltem) ; 
DialogtoVar (s, 6,pertranhiltem) ; 
DialogtoVar (s, 6, Percrprltem) ; 
DialogtoVar (s, 6, durrprltem) ; 
DialogtoVar (s, 6,percbwthrltem) ; 
DialogtoVar (s, 6, durwthrltem) ; 
DialogtoVar (s, 6,pickuptltem) ; 
DialogtoVar (s, 6, respondtltem) ; 


StringToNum (s, iNMaccid ) ; 
StringToNum (s, iPerachi ) ; 
StringToNum (s, iperctrma ) ; 
StringToNum (s, ipertranhi) ; 
StringToNum (s, iPercrpr ); 
StringToNum (s, idurrpr ); 
StringToNum (s, ipercbwthr 
StringToNum (s, idurwthr ) 
StringToNum (s, ipickupt ) ; 
StringToNum (s, irespondt ); 


nmaccid 
Perachi 
perctrma 
pertranhi 
percrpr 
durrpr 
percbwthr 
durwthr 
pickupt 
re spondt 
end; 
end; 


= iNMaccid; 

= iperachi * 0.01; 

= iperctrma * 0.01; 
= ipertranhi * 0.01; 
= ipercrpr/168 . 0; 

= idurrpr; 

= ipercbwthr /720 . 0; 
= idurwthr ; 

= ipickupt; 

= irespondt; 


Procedure Question ( query : str255; var answer : str255 ); 
{ sets up dialog to ask 'query' and get answer 'answer' } 
Var 

itemRect : Rect; 

itemType, itemNo : integer; 

item : Handle; 

begin 

Flushevents (Everyevent, 0) ; 

dPtr := GetNewDialog ( QuestID, NIL, Pointer (-1) ); 


: longint 
; longint 



ParamText (query, ' 1 , 1 ' , 1 ' ) ; 
itemNo : = 4 ; 

GetDItem(dPtr, itemNo, itemType, item, itemRect); 
SeliText (dPtr, itemNo, 0, 0) ; 

Repeat 

ModalDialog (NIL, itemNo); 

Until (itemNo = ok ) ; 

GetIText ( item, answer ) ; 

DisposDialog(dPtr) ; 
end; 


Procedure SetUpDialog( ID, MaxField, IstEditltem: integer); 
var 

itemType , itemNo : integer; 

item : Handle; 

editArea, ButtonArea, itemRect : Rect; 

begin 

Flushevents (Everyevent, 0) ; 

dPtr := GetNewDialog ( ID, NIL, Pointer (-1) ); 
if dPtr = NIL 

then ExitToShell; 

for itemNo := 0 to MaxField - 1 do 
begin 

GetDItem (dPtr, itemNo + IstEditltem, itemType, item, itemRect) 
if item = NIL then ExitToShell; 
itemHandles[ itemNo + 1 ] := item; 
end; { for } 

editArea := dPtr 7 " .portRect; { ******* modify this ****** } 

buttonArea := editArea; 

GetDItem (dPtr, 1, itemType, item, itemRect ); { l'st button } 

with itemRect do 
begin 

top := top- 4; 
editArea . bottom := top; 
buttonArea . top : = t op ; 
end; 

end; { setupdialog } 


Procedure DoAsk; 

Var 

itemType : integer; 

item : Handle; 

editArea, ButtonArea, itemRect : Rect; 


begin 

SetupDialog(AskID,MaxFieldAsk, IstEditltemAsk) 
OutlineOK( dPtr) ; 

AsktoDialog; 

Repeat 

ModalDialog (NIL, itemNo) 

Until (itemNo = ok ) or ( itemNo = Cancel); 

If itemNo = ok then Dialogtoask; 
DisposDialog(dPtr) ; 
end; { DoAsk } 


Procedure RpltoDialog; 
var 



s : string255; 

i : integer; 

Dat : array [1.. 6] of longint; 

tmp2,tmp3, tmp4 : real; 

itmp : longint; 

Begin 

for i:=l to MaxFieldRpl do dat[i]:=0; 

{ dat contains the edit items, index i corresponds to item i } 
tmp2 := 0; tmp3 := 0; tmp4 := 0; 

With Data do 
begin 

itmp:= round(Simtime*52/Minyear) ; 

NumToString(itmp, s) ; 

s := Concat(s, ' Week Simulation Time ' ) ; 

ParamText (s, 1 ' , ' ' , ' 1 ) ; 
for i:=l to Nbds do 
with Bird[i] do 
begin 

dat[l] := dat[l] + nflts; { total flights } 

tmp2 := tmp2 + CallDist/convert; { total distance } 

tmp3 := tmp3 + waitt; { wait time } 

tmp4 := tmp4 + Waitt + reset; { total time } 

end; 

Dat [2] := round( tmp2/dat [1] ) ; { find averages per flight } 

dat [3] := round ( tmp3/dat [1] ) ; 
dat[4] := round( tmp4/dat [1] ) ; 

dat [5] := Num2LongInt (outref ) ; { out of range refused } 

Dat [6] := Num2LongInt (inref ) ; { in range refused } 

SeliText (dPtr, IstEditltemRpl, 0, 0); 
for i:=l to MaxFieldRpl do 
begin 

NumToString (dat [i] , s) ; 
vartoDialog (s, i ) ; 
end; 

SeliText (dPtr, 1, 0,MaxInt) ; 
end; 
end; 

Procedure HospReport (Num: integer); {what happend at Num hospital } 
var 

i, j, k, d2 : integer; 

await, aresc : integer; 

Dat : array [1.. 7] of longint; 

Ds : array[1..7] of string255; 

s,s2,s3 : string255; 

x,y,del : integer; 

kl,k2,k3 : longint; 


Procedure MyNumtostring(k: longint; n: integer; var s : string255) ; 
begin 

NumToString (k, s) ; 

while (length (s) < n) do Insert ( ' ',s,l); 
end; 

begin 

x:=l;y:=40;del : =24 ; 

EraseRect (wptr2 A .portRect) ; 
with Data do 
with hosp [Num] do 
begin 

k := 0; await := 0; aresc := 0; 
gotoxy (1,2); 

writeln (name ; 10, ' Status =', status: 3, ' Flights Received =',rcvd:6 ); 



if (Numinest > 0) then 
begin 

Moveto (x,y) ; 

Drawstring (' craft Rnge N-Flts Av Rsc Av wait Fit Hrs Av Dst'); 
y:=y+ll; 

Moveto (x,y) ; 

Drawstring (' (min.) (min.) /week 

for i := 1 to numinest do 
begin 
y :=y+del; 

Moveto (x,y) ; 
with bird [ fleet [i] ] do 
if (nflts > 0) then 
begin 

dat [ 1 ] : = i ; 

dat [ 2 ] : = round ( range / convert ) ; 
dat [3] := nflts; 

dat [4] := round( (reset + Waitt) /nflts) ; 
dat[5]:= round (waitt/nf Its) ; 
dat [6] := round (168 . 0*fltime/simtime) ; 
dat[7]:= round( (calldist /convert) /nflts ); 

k := k + nflts; 
await := await + round (waitt ) ; 
aresc := aresc + round(resct + waitt); 
for j:=l to 7 do MyNumToString (dat [ j] , 9, ds [ j] ) ; 
s := concat (ds[l] ,ds[2] ,ds[3] ,ds[4] ,ds[5] ,ds[6] ,ds[7] ) ; 

Drawstring (s) ; 

d2 := trunc (del/2) -3; 

{ draw an arrow pointing at the average in the Histogram } 
pnt .h:=round(350+ (float (dat [7] ) /500 . 0) *150 . 0) ; 

{ 500 mile range of the histogram, 150 = length of histogram} 

{ things will need to be changed if craft have range >500 mi} 
pnt.v:= y-d2; 

Moveto (300, pnt. v-4) ; 

Lineto(pnt.h,pnt.v-4) ; Line t o (pnt. h, pnt. v) ; 
moveto (pnt ,h-2,pnt. v-3) ; 

Lineto (pnt. h, pnt ,v) ; Lineto (pnt .h+2,pnt .v-3) ; 

SetRect (tmpRect, 350,y-d2, 500,y+d2) ; 

PenPat (Black) ; 

MakeHist( 49,2 ,dHist , tmpRect );{ the 49 => 50 int => 500 mi} 
end; 

end 

end; 

y ;=y+12; 

Moveto (x,y) ; 

Drawstring ( ' ' ) 

y:=y+12; 

Moveto (x,y) ; 
if (k > 0) then 
begin 

kl:=k; k2 :=round(aresc/k) ; k3:= round (await/k) ; 

MyNumtoString (kl, 9, s) ; MyNumtoString (k2, 9, s2) ; MyNumtoString (k3, 9, s3) ; 
s := Concat (' ' ,s,s2,s3); 

Drawstring (s) ; 
end; 


end 

end; 


Procedure DoReport; 
Var 

itemType, enum 


: integer; 



item : Handle; 

editArea, ButtonArea, itemRect : Rect; 

hPrint : THPrint; 

thePPort : TPPrPort ; 

prStatus : TPrStatus; 

begin { of DoReport } 

wPtr2 := GetNewWindow ( WindowID2, @Wrec2, Pointer ( -1 ) ); 

SetPort ( wPtr2 ) ; { new window to put hosp reports in } 

ClipRect{ wPtr2^ .portRect ); 
cnum := 1; 

SetupDialog(RplID,MaxFieldRpl, IstEditltemRpl) 

OutlineOK( dPtr) ; 

RpltoDialog; 

HospReport (cnum) ; 

Repeat 

SetPort ( wPtr2 ) ; 

ModalDialog(NIL, itemNo); 

if (itemNo = 1) then { display next hosp report } 
begin 

cnum := cnum +1; if ( cnum > Data.numhsp) then cnum := 1; 

HospReport (cnum) ; 

SysBeep(5) ; 
end; 

if (itemNo = 3) then { Send Hosp reports to printer } 

begin 

PrOpen; { lets try printing it } 

hPrint := THPrint (NewHandle (sizeof (TPrint) ) ) ; 

PrintDefault (hPrint) ; 
if PrJobDialog (hPrint) then 
Begin 

thePPort := PrOpenDoc (hPrint, NIL, NIL) ; 

PrOpenPage (thePPort, NIL) ; 
printresult; 

PrClosePage (thePPort) ; 

PrCloseDoc (thePPort) ; 

PrPicFile (hPrint , NIL, NIL, NIL, prStatus ) 
end; 

DisposHandle (Handle (hPrint) ) ; 

PrClose; 

end; 

Until (( itemNo = 2) or (itemNo =4) ) ;{ 2=ok button, 4=Another sim } 
DisposDialog(dPtr) ; 
closewindow (wptr2 ) ; 

SetPort ( wPtr ) ; 

end; { DoReport } 


Procedure DoHospDiag( var Name: string255; var Status, Number : integer); 
Var 

s : String255; 

tmp : Longint; 

begin 

SetupDialog(HospQId,MaxFieldHpQ, IstEditltemHpQ) ; 

OutlineOK( dPtr) ; 

tmp := Def Status; 

NumToString(tmp, s) ; 
vartoDialog(s,2) ; 
tmp := DefNum; 

NumToString (tmp, s) ; 
vartoDialog(s, 3) ; 



SeliText (dPtr, IstEditltemHpQ, 0, 0) ; 

Repeat 

ModalDialog(NIL, itemNo); 

Until ( itemNo = ok) ; 

DialogtoVar (Name, 8,1); 

DialogtoVar (s, 6, 2) ; StringToNum(s,tmp ); Status := tmp; 

DialogtoVar (s, 6, 3) ; StringToNum(s, tmp ); Number := tmp; 

DisposDialog(dPtr) ; 

Def Status := Status; 

DefNum := Number; 
end; { DoHospDiag } 


Procedure DoBirdDiag (Name :string255; Num: integer; var Speed, Range : extended) 
Var 

s : String255; 

tmp : Longint; 

begin 

SetupDialog (BirdQId,MaxFieldBdQ, IstEditltemBdQ) ; 

OutlineOK ( dPtr) ; 
tmp:= Num; 

NumToString (tmp, s) ; 

s := Concat ( 'Rotorcraft: #',s); { identify which bird } 

ParamText (s, ' ' , ' ' , ' ' ) ; 

tmp := DefSpeed; NumToString (tmp, s) ; vartoDialog(s, 1) ; { put def val} 
tmp := DefRange; NumToString (tmp, s) ; vartoDialog (s, 2) ; 

SeliText ( dPtr, IstEditltemBdQ, 0,MaxInt) ; 

Repeat 

ModalDialog(NIL, itemNo); 

Until ( itemNo = ok) ; 

DialogtoVar (s, 6, 1) ; StringToNum(s,tmp ); Speed := tmp; 

DialogtoVar (s, 6, 2) ; StringToN-um(s,tmp ); Range := tmp; 

DisposDialog(dPtr) ; 

DefSpeed := trunc (Speed) ; 

Def range := trunc (Range) ; 
end; { DoBirdDiag } 


Procedure Paintcircle; 
var box : rect; 

i : integer; 

begin 

i := round (r) ; 

Setrect ( box, pt.h - i, pt.v - i, pt.h + i, pt.v + i); 
FrameOval ( box ) ; 
end; 


Function Findist ; 

var distl,tpl,tp2 : extended; 
begin 

{ gotoxy (2, 1) ; cleareol; write ( ' FINDIST '); } 


tpl:=pl.v - p2.v; 
tp2:=pl.h - p2.h; 



distl := tpl*tpl + tp2*tp2; 
if ( distl < 0.001 ) then distl := 0.0; 
findist ;=sqrt (distl) ; 
end; 


procedure clickpoint (var pt : point) ; 
var 

h, v : integer; 
begin 
repeat 

until button; 
repeat 

getmouse (pt ) ; 
until not (button) ; 
end; 


procedure loccenters; 
var 

done : 
pt, pi, p2, p3 : 
i, j, h, v : 
itemp : 
s : 


{proc to locate and initialize hospitals} 

boolean; 

point; 

integer; 

longint; 

string255; 


begin 

gotoxy (1,1); cleared ; 

write ( ' Use mouse to indicate a distance of 100 miles ' ) ; 
repeat 

until button; 
getmouse (pi ) ; 
p2 := pi; 
penpat (Gray) ; 
penmode (patXor) ; 
repeat 

moveto (pi .h,pl . v) ; 
lineto( p2.h, p2.v); 
repeat 

Getmouse (p3) ; 

until not Equalpt(p2, p3) ; 
moveto ( pi . h, pi . v) ; 
lineto( p2.h, p2.v); 
p2 := p3; 
until not Button; 

Penpat (black) ; 

Penmode (Pat copy) ; 
moveto ( pi . h, pi . v) ; 
lineto( p2.h, p2.v); 

with Data do 
begin 

numbird:= 0; 

convert := findist (pi, p2) /100. 0; 
done := false; 
i := 1; 


gotoxy (1,1); cleared; 

writeln ( ' locate hospitals by clicking with mouse 1 ) ; 
gotoxy (1,2); cleared ; 

writeln ( ' click in "OK" box after all hospitals have been located 

while (done = false) do 
begin 

clickpoint (pt) ; 



if ptinrect (pt, ansrct) then 
done : = true 
else 
begin 

paint circle (pt, 2) ; 
with hosp[i] do 
begin 

location. h := pt.h; 
location. v := pt.v; 

DoHospDiag (Name, Status, numinest) ; 

if (numinest > 0) then 
begin 

paintcircle (pt, 4) ; 

for j := 1 to numinest do 
begin 

numbird := numbird + 1; 
with bird [numbird] do 
begin 

DoBirdDiag (Name, j, speed, range) ; 

speed := speed * convert / 60.0; 

range := (range * convert); 

base := location; 

jobtyp := 0; 

timer := -1.0; 

busy := false; 

nflts:=0; fltime:=0.0; rptime:=0.0; 
waitt:=0.0; reset: =0.0; cumtot:=0; 
end; 

fleet [j] := numbird; 
end { of for } 
end; 

if (status < 3) then 
begin 

Question ( 'No. of ground transport emergencies this center treats per year?',s) 
stringToNum (s, itemp) ; 
totemerg := totemerg + itemp; 
cumtot : = totemerg; 
end; 

rcvd:=0; emrgperday : =0 ; 
end; 

i := i + 1; 

moveto (ansrct . topleft . h+3, ansrct . botright . v-1 ) ; 

Drawstring ( ' OK' ) ; 

Framerect (ansrct) ; 

{ DrawPicture ( ph ,MapFrame) ; } 

Framerect (MapFrame) ; 


end 

end; 

numhsp := i - 1 
end 
end; 


procedure Rinput; 


var i , j , itmp 
tmp 
strl 


: Integer; 

: extended; 

: string255; 



var itmp : integer) ; 


procedure iwrtrd(strl : string255; 
begin 

got oxy (1,2); cleared ; 
write ( st rl, itmp: 5, ' '); 
readln (strl) ; 

if (length (strl) > 0) then itmp := round ( St r2Num (strl) ) ; 
end; 

procedure wrtrd(strl : string255; var tmp : extended) ; 
begin 

gotoxy (1,2); cleared; 
write ( strl , tmp : 8 : 2 , ' '); 
readln (strl) ; 

if (length (strl) > 0) then tmp := Str2Num(strl) ; 
end; 

begin 

with Data do 
begin 

totemerg := 0; 

for i:=l to numhsp do 

begin 

with hosp[i] do 
begin 

gotoxy (1,1); cleared; write (' Hospital Number : ' ,i); 
iwrtrdC status = ', status); 
if (numinest > 0) then 
for j : =1 to numinest do 
with bird [fleet [ j] ] do 
begin 

speed := speed* 60. 0/convert; 
range : = range /convert; 

gotoxy (1,1) ;cleareol; write (' Rot or craft Number : ' , j ) ; 

itmp : =round ( speed) ; 

iwrtrdC speed = ',itmp); 

speed :=i tmp; 

itmp : =round (range ) ; 

iwrtrdC range = ',itmp); 

range :=i tmp; 

speed := speed * convert / 60.0; { convert back for screen } 

range := (range * convert); 
end; 

if (status < 3) then 
begin 

if (i=l) then itmp := cumtot 

else itmp := (cumtot - hosp [i-1] . cumtot) ; 
gotoxy (1,1); cleareol; write (' Hospital Number : ',i); 
iwrtrdC No. of ground transport emergencies per year : ',itmp) 

totemerg := totemerg + itmp; 
cumtot : = totemerg; 
end; 

gotoxy (1,1); cleareol; 
gotoxy (1,2); cleareol; 
r cvd : =0 ; emrgperday : =0 ; 

end 

end 

end 

end; 

Procedure Drawranges; 
var i, i range : integer; 

rl : rect; 

begin 

with Data do 



begin 

for i := 1 to numbird do 
with bird[i] do 
begin 

irange := trunc ( range); 

setrect(rl, base.h - irange, base.v - irange, base.h + irange, base.v + irange) 
FrameOval (rl ) ; 
end 
end 
end; 


procedure locrect; 
var 

i, hi, h2, vl, v2 : integer; 

rl, r2 : rect; 

done : boolean; 

pi, p2, p3 : point; 

s : str255; 

itemp : longint; 

xl,x2,yl,y2 : integer; 

begin 

with Data do 
begin 

gotoxy(l,2); cleareol; gotoxy(l,l); cleareol; 
writeln ( ' Use mouse to enclose high accident regions 


'); 


done := false; 
i : =1 ; 

rgncnt := 0; { count of # of points used to def region } 

repeat { until done = true } 

repeat 

until button; 
getmouse (pi ) ; 

p2 := pi; 

rgnpts [i] :=pl; { this is to keep a record of the region defining points } 

PenPat (Gray) ; 

Penmode (PatXor) ; 
repeat 

Pt2Rect(pl, p2, rl); 

FrameRect (rl) ; 
repeat 

GetMouse (p3) ; 

until not EqualPt (p2, p3) ; 

FrameRect (rl) ; 
p2 := p3; 
until not Button; 

rgnpts [i+1] := p3; { 2nd coord of region defining rect } 

i :=i+2; 

Penpat (Black) ; 

PenMode (Pat Copy) ; 
if ptinrect (pi, ansrct) then 
done : = true 
else 
begin 

FrameRect (rl) ; 
tmprgn := Newrgn; 
rectrgn (tmprgn, rl ) ; 

Unionrgn (hirgn, tmprgn, hirgn) ; 

DisposeRgn (tmprgn) ; 

rgncnt := rgncnt + 2; { count of # of points used so far } 

end; 

until (done = true); { finished defining region } 


pl:= rgnpts [1] ; 



xl:=pl.h; yl:=pl.v; x2:=xl; y2:= yl; { looking for smallest and largest } 
for i : =2 to rgncnt do 
begin 

p3:=rgnpts[i] ; 

If ( p3.h < xl) then xl := p3.h; 

if ( p3.h > x2) then x2 := p3.h; 

if ( p3.v < yl) then yl := p3.v; 

if ( p3.v > y2) then y2 := p3.v; 

end; 

xlim2 := xl; { smallest x-val of hirgn } 

xlen2 := (x2-xl) /32767 . 0; { scaled dist to highest x val } 

ylim2 := yl; { smallest y val } 

ylen2 := (y2-yl) /32767 . 0; { scaled dist to highest y val } 

end; 

Drawranges; 

end; 


procedure Redraw; 


var r 

i , irange 

ans 

pt 


rect; 

integer- 

char; 

point; 


begin 

EraseRect (theport^ .portRect) ; 

moveto (ansrct .topleft .h+3, ansrct .botright . v-1) ; 
Drawstring ( ' OK' ) ; 

Framerect (ansrct) ; 

DrawPicture ( ph ,MapFrame) ; 

Framerect (MapFrame) ; 

with Data do 
begin 

for i:=l to numhsp do 
with hosp[i] do 

paintcircle (location, status) ; 

PenPat (Gray) ; 

Penmode (PatXor) ; 
frameRgn ( hirgn ) ; 


Penpat (Black) ; 
PenMode (PatCopy) ; 
end; 

Drawranges; 

end; 


Procedure randomize; { start new random sequence } 
var time : longint; 
begin 

GetDateTime (time) ; 

RandSeed := time; 
end; 


Function getdatfile( VAR done : Boolean ) : Boolean; { Now in Bird4.pas } 
var 

okayflag : boolean; 

folder, Filename ; String[64]; 

reply : SFReply; 

begin 

okayflag := false; 



inName : = ' 1 ; 

if GetFileName (reply, 'DATA' ) then inName := reply. fName; 
done := length ( inName ) = 0; 

If not done Then 
begin 

{$i-} Reset ( datafile, inName ); 
read( datafile, Data ); 
close (datafile) ; 

{$i+} 

If ioResult <> 0 
then begin 

gotoxy(l,l); cleareol; Write ( ' ERROR: cannot find/read ', inName ) 
end 

else 

okay flag := ( IoResult = 0 ) ; 
end; 

getdatfile := okayflag; 
end; 

Function putdatf ile ( 
var 

okayflag 
folder. Filename 
reply 

begin 

okayflag := false; 
outName : = ' 1 ; 

if makeFileName (reply, 'Save file as', outName) then outName := reply. fName; 
done := length ( outName ) = 0; 

If not done Then 
begin 

{ $i— } FileType := 'DATA'; 

Rewrite ( datafile, outName ) ; 
write (datafile. Data ) ; 
close (datafile) ; 

FileType := 1 BINA ' ; 

{$i+} 

If IoResult <> 0 
then 
begin 

gotoxy (1,1); cleareol; 

Write ( ' ERROR: cannot create ', outName, ' press "return" '); readln; 
end 
else 

okayflag := ( IoResult = 0 ); 
end; 

putdatf ile := okayflag; 
end; 


VAR done : Boolean ) : Boolean; 

: boolean; 

: String [ 64 ]; 

: SFReply ; 


procedure Initvars; 
var i, j : integer; 

begin; 

with Data do 
begin 

Def Status :=3; 

DefNum : =1 ; 

Def Speed :=150; 

DefRange :=150; 

birdn\jm:=0; t count :=0;totemerg := 0; 
clock := 0.0; avwait := 0.0; avresc := 0.0; 



inref := 0.0; outref := 0.0; 
died:=0; toofar:=0; 

xliml := MapFrame . toplef t .h; xlen ;= (MapFrame .botRight.h - xliml) /32767; 
yliml := MapFrame. toplef t.v; ylen := (MapFrame. botRight .v - yliml) /32767; 
for i := 1 to nbds do 
with Bird[i] do 
begin 

for j:=0 to 50 do dHist[j]:=0; 

busy := false; timer := 0; nflts := 0; fltime := 0; rptime := 0; 
waitt := 0; reset ;= 0; calldist := 0; 
end; 

for i:=l to numhsp do 
with hosp[i] do 

begin rcvd:=0; 

emrgperday : =0 

end; 

end; 

end; 


procedure initialize; 
var 

i : integer; 

itemp : longint; 

r,rl : rect; 

s : str255; 

rt,ok : Boolean; 

pt,ptl : point; 

begin 
randomize; 

Initvars; 

ClipRect (MapFrame) ; 

DrawPicture ( ph , MapFrame); 

Framerect (MapFrame) ; 

ClipRect (theport'' .portRect) ; 
pt : =MapFrame . botRight ; 
pt 1 : =MapFrame . toplef t ; 

SetRect (ansrct,pt.h-25,ptl.v-15, pt.h,ptl.v) ; 
moveto (ansret . toplef t . h+3, ansret . botright . v-1) ; 
Drawstring ( ' OK' ) ; 

Framerect (ansret) ; 
with Data do 
begin 

if ( readdat = true) then 
begin 

hirgn := Newrgn; 

i : =1 ; 

repeat 

pt2rect (rgnpts [i] , rgnpts [i+1] , rl) ; 
tmprgn := Newrgn; 
rectrgn (tmprgn, rl) ; 

Unionrgn (hirgn, tmprgn, hirgn); 

DisposeRgn (tmprgn) ; 
i :=i+2; 

until (i > rgnent) ; 
end 
else 
begin 

hirgn := Newrgn; 

moveto (ansret . toplef t . h+3, ansret . botright .v-1 ) ; 
Drawstring ( ' OK ' ) ; Framerect (ansret ) ; 
loccenters; { procedure to locate centers } 



locrect; { procedure to locate high accid regions } 
end; { of data definition section } 


Redraw; 

if (readdat = true ) then 
begin 

Question ('Do you want to enter new rotor craft data ? (Y/N) ',s); 
if (s = 'Y') or (s = 'y') then Rinput; 
end; 

Question ( 'What % of the accidents occur in the high accident region? ’,s); 

StringToNum (s, itemp) ; 

percin := 0.01 *itemp; 

percinl := percin * 65535.0 - 32768.0; 

DoAsk; 

rt :=false; 

If ( length (MapName ) > 0 ) then 
begin 

Question('Do you want to Save the Data in a file ? (Y/N) ',s); 

if ( s = 'y' ) or (s = 'Y') then rt := putdatFile (ok) ; 

end; 

Question ( 'Enter simulation time ( in weeks ): ',s); 
stringToNum (s, itemp) ; 

ClipRect (MapFrame) ; 

Redraw; 

ClipRect (thepord .portRect) ; 
gotoxy(l,l); cleared; 

write ( ' ' , itemp : 5, ' Week Simulation Time ' ) ; 

launchdist := (10 * convert); 
simtime := itemp * minyear / 52; 
nmwthr := percbwthr * minyear/ durwthr; 
nmrpr := percrpr * minyear / durrpr; 

end 

end; 


Procedure Printresult; {what happend } 
var 

i, j, k : integer; 
tmp : real ; 
begin 

with Data do 
begin 

Gotoxy (1,1) ; cleared; 
k := 0; 

writeln(' ' , round (simtime*52/minyear) : 4, ' Week Simulation Time: '); 

writeln( ' ' ) ; 

writeln ( ' Cntr Stat Rcvd Bird Rnge total Av. resc. Av. wait Fit Hrs. Av. Dist') 

writeln(' num. fits (min.) (min.) /week’); 

for j := 1 to numhsp do 
begin 

writeln(j:4, hosp [ j ]. status :3, hospf j] .rcvd : 6) ; 
if hospfj] .numinest > 0 then 
begin 

for i := 1 to hosp[ j] .numinest do 
begin 



with bird[hosp[j] .fleet [i] ] do 
if (nflts > 0) then 
begin 

trap := (calldist/convert) /nflts; 
write ( ' ' ) ; 

write (i : 4, round (range / convert) :8, nflts :6); 

writeln ( (reset +waitt) /nflts :10:1, waitt/nflts :9:1, (168.0 * fltime 


k := k + nflts; 
avwait := avwait + waitt; 
avresc := avresc + (reset +waitt) ; 
end; 

end 

end; 

end; 

writeln ( ' ' ) ; 

write (k : 17, ' ' ) ; 

if (k > 0) then 

writeln (avresc / k :7 : 1, avwait / k : 10: 1); 

writeln ( ' ' ) ; 

write ('There were Num2lnteger (outref ) : 5, ' ” out of range " calls and 

writeln ( Num2lnteger (inref ) : 3, ' non-responses due to'); 
writeln ( 1 "in-service" or "in-repair" '); 

end 

end; 


Procedure addq ; 
var 

i, j : integer; 

begin { gotoxy (2, 1) ; cleared; write ( ' ADDQ '); } 

with Data do 
begin 

x.time := clock; 
paintcircle (x . location, 1 ) ; 
if (tcount = 0) then 
transferq[l] := x 
else 
begin 

{ gotoxy (1, 1) ; cleared; write (' tcount = tcount); readln; } 
j := tcount + 1; 

for i := tcount + 1 downto 2 do 
if (transferq[i - 1] .priority < x. priority) then 
begin 

transferq[i] := transferq[i - 1]; 
j := i - 1; 
end; 

transferqtj] := x; 
end; 

tcount := tcount + 1; 

{ gotoxy (1, 3) ; cleareol; write ( 'tcount = ', tcount); readln; } 

end 

end; 

procedure Delq; 
var 

i : integer; 
begin 

{ gotoxy (2,1); cleareol ; write ( ' DELQ ' ) ; } 

with Data do 
begin 

tcount := tcount - 1; 
for i := 1 to tcount do 
transferq[i] := transferq[i + 1] 


simtime) 



end 

end; 


Function Expo; 

{ x is the average number of events per year } 

{ the result is the exponential waiting time until next event } 
var 

r : longint; 

y : extended; 

begin 

{ gotoxy (2, 1) ; cleared; write ( ' EXPO '); } 

r := ABS (random) + one; 
y := -In (r / 32768) ; 
expo := (y * minyear)/ x; 
end; 

Function Norm; 

{produces normal variate with mean u and st dev=v } 

var 

ul, u2 : extended; 
begin 

ul := abs (random / (32767)); 

u2 := abs (random / (32767)); 

norm := u + v * sqrt(-2 * ln(ul)) * cos (2 * pie * u2) ; 
end; 

Procedure Nextevent; 

{proc to choose next event, update clock, timers } 

{eventype 0->free, l->repair, 2->weather, 3->transfer, 4->accid } 
var 

i : integer; 

min : extended; 

begin 

{ gotoxy (2,1) ;cleareol; write (’ NEXTEVENT '); } 

with Data do 
begin 

min := 1E+20; 

if min > nextaccident . time then 
begin 

min := nextaccident .time; 
eventyp : = 4 ; 
end; 

if min > nexttransf er . time then 
begin 

min := nexttransf er . time; 
eventyp := 3; 
end; 

for i ;= 1 to numbird do 
begin 

if ( (bird [i] .busy = true) and (min > bird[i] .timer) ) then 
begin 

min := bird[i] .timer; 
eventyp : = 0 ; 
birdnum := i; 
end; 

if (min > nextrepair [i] ) then 
begin 

min := nextrepair [i] ; 
eventyp := 1; 
birdnum := i; 
end 
end; 

if min > nextweather then 
begin 

min := nextweather; 
eventyp : = 2 ; 



end; 

nextaccident . time := nextaccident . time - min; 
nexttransfer. time := nexttransfer . time - min; 
for i := 1 to numbird do 
begin 

bird[i] .timer := bird[i] .timer - min; 
nextrepair [i] := nextrepair [i] - min.- 
end; 

nextweather := nextweather - min.- 
clock := clock + min.- 
end 
end; 


Procedure choosbird; 

{wtime=time to arrive at scene, rtime=total rescue time ( after start) } 

{ftime=f light time, avail 0-> found bird, l->in range but busy,2-> none in range } 
{ pl= loc of call, p2= loc of destination of call } 

{ distance = dist from call to his destination } 

var 

i : integer; 

min, distl, dist3 : extended; 
dst : array [ 1 .. ribds ] of extended; 
begin 

{ gotoxy (2, 1) ; cleareol; write ( ' CHOOSBIRD ' ) ; } 

with Data do 
begin 

avail := 2; 

min := 1E+20; { min dist to avail bird so far } 
for i := 1 to numbird do 
with bird[i] do 
begin 

distl := findist(pl, base); 
dst[i] := distl; 

if ((distl < range) and (avail = 2)) then avail := 1; 
if ((min > distl) and (busy = false) 

and ( (distl + distance) < ( range + range) ) ) 

then 

begin 

avail := 0; 
birdnum := i; 
min := distl; 
end 

end; { with bird[i] } 

if (avail = 2) then 
outref := outref + 1; 

if (avail = 1) then 
begin 

inref := inref + 1; 
for i := 1 to numbird do 
begin 

if dst[i] < min then 
begin 

if ( (bird [i] .busy = true) and (bird [i] .range > dst[i])) then 
case bird[i] . jobtyp of 

1 : refuse [i, 1] := refuse [i, 1] + 1; 

2 : refuse [i, 2] := refuse [i, 2] + 1; 

3 : refuse [i, 3] := refuse [i, 3] + 1; 

end { of case } 

end { of dst<min cond } 

end { of i loop } 

end; { of avail=l cond } 



if (avail = 0) then 
begin 

dist3 := findist(p2, bird [birdnum] .base) ; 
ftime := (min + distance + dist3) / bird [birdnum] .speed; 
wtime := respondt + min / bird [birdnum] . speed; 
rtime := wtime + pickupt + distance / bird [birdnum] . speed; 
bird [birdnum] .timer := ftime + respondt + pickupt; 
bird [birdnum] . loc := pi; 
bird [birdnum] .des := p2; 

i := trunc ( (min/convert) /10 . 0) ; if (i > 50) then i:=50; 

{ ** if range is > than 500 this must change ! ** } 

bird[birdnum] .dHist[i] := bird[birdnum] .dHist[i]+l; 

{ ** dHist [1] = # fits wth dst in [10,20) ** } 

bird[birdnum] .CallDist := bird[birdnum] .CallDist + min.- 
end { of avail= 0 loop } 
end; { of with data } 
end; { of choosbird } 

Procedure Genaccident; 
var 

temp : extended; 
begin 

{ gotoxy (2, 1) ; cleared; write ( ' GENACCIDENT '); } 

with Data do 
begin 

with nextaccident do 
begin 

jobtyp := 4; 
time := expo (nmaccid) ; 
temp : = random; 
if temp < percinl then 
repeat 

location. h := trunc (abs (random) * xlen2 + xlim2 ); 
location. v := trunc (abs (random) * ylen2 + ylim2 ); 
until (ptinrgn (location, hirgn) ) 
else 
begin 

location. h := trunc (abs (random) . * xlen + xliml ); 
location. v := trunc (abs (random) * ylen + yliml ); 
end; 

{ clean this up. } 

temp := abs (random) / 32768; 
if (temp < perachi) then 
priority : = 3 
else 

priority := 2; 
end 

end 

end; 

Procedure Choosdest; 
var 

i : integer; 

dist, distl : extended; 
begin 

{ gotoxy (2, 1) ; cleared; write ( ' CHOOSDEST '); } 

with Data do 
begin 

dist := 1.0E30; 

for i := 1 to numhsp do 
begin 



distl := findist(loc, hosp [i] . location) ; 
if ( distl < dist ) then 
if ( hosp [i] . status >= priority) then 
begin 

dist :=distl; 
dest := hosp [i] .location; 
destcntr := i; 
end 
end; 

distance := dist; 
end 
end; 


Procedure Gentransf; 
var 

i, temp2 : integer; 

tempi : extended; 

found : boolean; 

begin 

{ gotoxy (2, 1) ; cleared; write ( 1 GENTRANSF '); } 

{ perctrma is the % of emerg which need transfer } 

{ totemerg will be the total # of emerg at centers with priority < 3 } 

with Data do 
begin 

if (totemerg = 0) then 
nexttransfer.time := simtime 
else 
begin 

tempi := perctrma * totemerg; 
temp2 := abs (random) mod (totemerg) + 1; 
nexttransfer.time := expo (tempi); 
nexttransfer . jobtyp := 3; 
i := 0; 

found := false; 
repeat 
i := i + 1; 

if ( (hosp [i] . status < 3) and (hosp [i] . cumtot >= temp2) ) then 
found := true; 
until (found = true); 

nexttransfer. location := hosp [i] . location; 

tempi := abs (random) / 32768.0; { assume 25% are high priority } 

if (tempi < pertranhi) then 
nexttransfer .priority := 3 
else 

nexttransfer. priority := 2; 
end 
end 
end; 

Procedure Fly; 
var 

distance, wtime, ftime 
avail, priority 
locc, destt 
worthit 

begin 

{ gotoxy (2,1); cleareol ; write ( ’ FLY ' ) ; } 

with Data do 
begin 

worthit : = true ; 
locc := transferq[l] .location; 


extended; 

integer; 

point; 

boolean; 



priority := transferq[l] .priority; 

if (transferq[l] . jobtyp=3) then priority := 3; { kludge to insure that dest for a transfe 
choosdest (destt, loco, priority, distance); 
if (distance < launchdist) 

then begin 

worthit := false; penpat (white) ; 

paintcircle (locc, 1) ; { *********** } 

penpat (black) ; 

def- 

end; 

if (worthit = true) then 
begin 

choosbird(locc, destt, distance, wtime, rtime, ftime, avail); 
if (avail = 0) then { birdnum is global var identifying which bird } 
begin 

with bird [birdnum] do 
begin 

hosp [destcntr] .rcvd := hosp [destcntr] .rcvd + 1; 
nflts := nflts + 1; 
fltime := fltime + ftime; 

waitt := waitt + wtime + (clock - transferq[l] .time) ; 
reset := reset + rtime + (clock - transferq[l] .time) ; 
jobtyp := transferq[l] . jobtyp; 

moveto (base . h, base . v) ; 
lineto( loc.h, loc.v); 
lineto ( des.h, des.v); 
lineto ( base.h, base.v); 
end; { of with } 

delq; 

end { of if ( avail = 0 ) } 

ELSE 

begin 

if (transferq[l] .priority = 3) or (avail = 2) then 
begin 

if (priority = 3) then 
begin 

died := died + 1; 
moveto (locc. h-2, locc. v-2) ; 
lineto (locc. h+2, locc. v+2) ; 
end; 

if (avail = 2) then 
begin 

toofar := toofar + 1; 
moveto (locc. h-2, locc. v+2) ; 
lineto (locc. h+2, locc. v-2) ; 
end; 

delq; 

end; { priority=3 or avai=2 } 

{ ★★★★★★ | 

{ gotoxy (1, 2) ; cleared; write ( ' tfar= ’, toofar: 4,' inque= ' ,tcount, ' dist = ',di 

^ ★★★★★★ J 

end { of ELSE } 
end { of worthit = true } 
end 
end; 


Procedure Simulate; 
begin 

with Data do 



begin 


NMaccid 

= 1000; 

Perachi 

= 0.90; 

Perctrma 

= 0.50; 

Pertranhi 

= 0.90; 

Percrpr 

= 6.0/168.0; 

Durrpr 

= 60; 

percbwthr 

= 4.0/720.0; 

durwthr 

= 30; 

Pickupt 

= 10; 

Respondt 

= 10; 


repeat 
initialize; 
genaccident; 
gentransf ; 

next weather := expo (nmwthr) ; 
for ii := 1 to numbird do 
nextrepair [ii] := expo(nmrpr); 
while clock < simtime do 
begin 
nextevent ; 
case eventyp of 

0 : { 
begin 

bird[birdnum] .busy := false; 
case bird[birdnum] . jobtyp of 

1 : begin end; 

2 : {end of 

begin 

for jj := 1 to numbird do 
bird[ jj] .busy := false; { 
end; 

3 : ; { end of accident } 

4 : ; { end of transfer } 

end; 

if (tcount > 0) then 
fly; 
end; 

1 : { repair time } 

begin 

nextrepair [birdnum] := expo(nmrpr) + durrpr; 
with bird [birdnum] do 
begin 

busy : = true ; 
jobtyp := 1; 

rptime := rptime + durrpr; 
timer := durrpr; 
end; 
end; 

2 : { bad weather } 

begin 

nextweather := expo (nmwthr) + durwthr; 
for jj := 1 to numbird do 
with bird[jj] do 
begin 

jobtyp := 2; 
timer := durwthr; 
busy := true; 
end; 
end; 

3 ; 
begin 

addq(nexttransfer) ; 
gentransf; 


bird is free } 

{end of repair} 
bad weather} 

this isn't quite right } 


{ transfer } 



{ accident } 


end; 

4 : 
begin 

addq(nextaccident) ; 
genaccident; 
fly; 
end; 
end; 
end; 

DisposeRgn (hirgn) ; 

gotoxy(l,2); cleared; write (' Press return to see printout '); readln; 
DoReport ; 

until ( itemNo <> 4 ) ; 

{ Kludge, from DoReport, itemNo = 4 means he wants another simulation } 

end; 

end; 

begin 


END. { OF UNIT } 



Unit MacExtras ( 128 ) ; 


{$0 Birds: Uni ts.F: Sim. Lib } 

{$U-} 

Interface 

Uses 

memtypes, QuickDraw, OSIntf, Toollntf, Packlntf; 
CONST 


ApplelD 

= 1; 

AboutCmd 

= l; 

EditID 

= 3; 

UndoCmd 

= 1; 

{ 

} 

CutCmd 

=3; 

CopyCmd 

=4; 

PasteCmd 

=5; 

ClearCmd 

=6; 

ScBarWidth 

=15; 


MenuBarWidth = 18; 

MaxMenuCmds = 31; 

TYPE 

MenuCmdSet = SET Of 1 . . MaxMenuCmds; 
string64 = string [64]; 

string255 = string[255] ; 

Var 

appleMenu : MenuHandle; 
fileMenu : MenuHandle; 

EditMenu : MenuHandle; 

theEvent : EventRecord; 
whichWindow : WindowPtr; 

Function InRange (n, min, max : Integer ) : Boolean; 

Procedure Pause; 

Procedure EnableMenu (mh : MenuHandle; Commands : MenuCmdSet ); 
Procedure DisableMenu( mh : MenuHandle; Commands : MenuCmdSet ); 
Procedure FixEditMenu ( enableCommands : Boolean ) ; 

Procedure DragTheWindow ( whichWindow : WindowPtr; startPoint : Point ); 
Procedure ResizeWindow ( whichWindow : WindowPtr; startPoint : Point); 
Procedure zoomlnOut ( whichWindow : WindowPtr; partCode : Integer ) ; 
Procedure CloseDAWindow; 

Procedure GetPortSize ( VAR width, height : integer ) ; 

Procedure CalcControlRects ( whichWindow : WindowPtr; 

VAR hbarRect, vbarRect, gbRect : Rect ) ; 

Function Text Height ( wptr : WindowPtr ) : Integer; 

Procedure Centerstring ( h,v,w : Integer; s : Str255 ); 

Procedure DisplayAboutBox; 



Procedure DoAppleMenuCommands ( cmdNumber : Integer ) ; 


IMPLEMENTATION 


Function InRange; 

{ true if min <= n <= max } 
begin 

InRange := ( min <= n ) and ( n <= max ) 
end; 

Procedure Pause; 
begin 

while button do systemtask; 
while not button do systemtask; 
f lushEvents (KeyDownMask + autoKeyMask, 0 ) 
end; 

Procedure EnableMenu; 
var 

theCommand : 1 . . maxMenuCmds; 

Begin 

for thecommand := 1 to MaxMenuCmds Do 
If theCommand In commands 

then Enableltem( mh, theCommand ) 

end; 

Procedure DisableMenu; 

Var 

thecommand : 1 . . MaxMenuCmds; 
begin 

for thecommand := 1 to MaxMenuCmds Do 
If thecommand In commands 

then Disableltem( mh, theCommand ) 

end; 

Procedure FixEditMenu; 

Var 

editSet : MenuCmdSet; 

Begin 

editSet := [ UndoCmd, CutCmd, CopyCmd, PasteCmd, ClearCmd ] 
If enableCommands 

Then EnableMenu ( editMenu, editSet ) 

Else DisableMenu ( editMenu, editSet ) 

end; 

Procedure DragTheWindow; 

Var 

LimitRect : Rect; 

Begin 

With screenBits .Bounds Do 

SetRect ( limitRect, left + 4, top + 24, right - 4, Bottom 
DragWindow( whichWindow, startPoint, LimitRect ) 
end; 

Procedure ResizeWindow; 
var 

size : longint; 

width, height : longint; 
limitRect : Rect; 

begin 

with screenBits. Bounds Do 



setRect ( limitRect, 100, 75, right, bottom-24 ); 
size := GrowWindow( whichWindow, Startpoint, limitrect ) 
if size <> 0 then 

with whichWindow^ DO 
begin 

EraseRect ( PortRect ) ; 

width := LoWord( size ); 

height := HiWord( size ); 

SizeWindow( whichWindow, width, height. Time ); 

InvalRect ( portRect ) 
end { if } 

end; { resizeWindow } 


Procedure ZoomlnOut; 
var 

oldPort : GrafPtr; 
begin 

Getport ( oldPort ) ; 

SetPort ( whichWindow ) ; 

EraseRect ( whichWindow^ .PortRect ); 
zoomWindow( whichWindow, partCode, True ); 
SetPort ( oldPort ) 
end; 


Procedure CloseDAWindow; 

Var 

DANumber : Integer; 

DAWindow : WindowPeek; 

Begin 

DAWindow := WindowPeek (FrontWindow ); 
DANumber := DAWindow'' . windowKind; 
CloseDesJcAcc ( DANumber ) 

End; 


Procedure GetPortSize; 

Begin 

with theport^ .portRect DO 
begin 

width := right - left; 
height := bottom - top 
end 
end; 

Procedure CalcControlRects; 

Begin 

with whichWindow"' .portRect DO 
begin 

gbRect.top := bottom - scBarWidth; 
gbRect.left := right - ScBarWidth; 
gbRect .bottom := Bottom; 
gbRect . right : = right ; 
hBarRect := gbRect; 
hBarRect . lef t := left; 
hBarRect . right := gbRect.left; 
vBarRect := gbRect; 
vBarRect.top := top; 
vBarRect. bottom := gbRect.top 
end 
end; 


Function TextHeight; 
var 


flnfo : Font Info; 
oldPort : GrafPtr; 

Begin 

GetPort ( OldPort ); 

SetPort ( wPtr ) ; 

GetFontlnf o ( flnfo ) ; 
with flnfo DO 

TextHeight := ascent + descent + leading; 
SetPort ( oldPort ) 
end; 

Procedure Centerstring; 
begin 

w : = w - StringWidth ( s ) ; 
if w < 0 

then w := 0; 

moveTo ( h + ( w DIV 2 ) , v ) ; 

Drawstring ( s ) 
end; 


Procedure Di splay AboutBox; 

{ requires 6-string STR# resource with IF = 1 containing strings 
to display in window as follows: 


STR#1 

= Program name 

STR# 2 

= Author 

STR# 3 

= Version 

STR# 4 

= Copyright 

STR# 5 

= Address 

STR# 6 

= Phone Number 


Const 

strListID =1; { rewource ID of Str# resource } 

var 

oldPort : GrafPtr; 

wp : WindowPtr; 

wRec : windowRecord; 

wr : Rect; 

i : integer; 


messages : ARRAY [1 .. 6 ] of Str255; 
begin 

for i := 1 to 6 DO 

GetlndString ( messages [i] , 
wr := screenBits. bounds; 

InsetRect (wr, 100, 75) ; 
wp := NewWindow(8wRec, wr, 
if wp <> NIL then with wp A 
BEGIN 


strListID, i ) ; 


TRUE, altDBoxProc, 
.portRect DO 


GetPort ( oldPort ) ; 

SetPort ( wp ) ; 

TextFont ( systemFont ) ; 

TextSize (12) ; 

Centerstring ( 0, 30, right, messages 
TextFont ( geneva ) ; 

TextSize (9); 

Centerstring(0, 60, right, 

Centerstring(0, 90, right, 

CenterString(0, bottom- 60, right. 
Centerstring (0, bottom-40, right. 
Centerstring (0, bottom-20, right. 
Pause; 

CloseWindow ( wp ) ; 

SetPort ( oldPort ) 
end; 
end; 


[ 1 ] ) ; 


messages 

messages 

messages 

messages 

messages 


[ 2 ] 

[3] 

[4] 

[5] 

[6] 


) ; 
); 
) ; 
) ; 
) ; 


Pointer (-1) , 


FALSE, 0) 


Procedure DoAppleMenuCommands; 

Var 

daName : Str255; 

result : integer; 

begin 

if crndNumber = AboutCmd 
then 

Di splay AboutBox 
else 
begin 

if FrontWindow = NIL 

then FixEditMenu ( TRUE ) ; 

Getltem( appleMenu, crndNumber, daName ) 
result := OpenDeskAcc( daName ) 
end 

end; 


BEGIN 

{ init toolbox managers } 
InitGraf ( @thePort ) ; 
InitFonts; 

InitWindows; 

InitMenus ; 

TEInit; 

InitDialogs ( NIL ) ; 
InitCursor; 

FlushEvents ( everyEvent, 0 ) 
END. 



UNIT BirdGlobals ( 135 ); 


{$0 Birds: Units. F: Sim. Lib } 
INTERFACE 


USES 

Memtypes, QuickDraw, OSIntf,ToolIntf ; 


CONST 


type 


ok 

= 1; 

cancel 

= 2; 

pie 

= 3.141593; 

nbds 

= 20; 

minyear 

= 525600; 

hsp 

= 20; 

string64 

= string [ 64 ]; 

string255 

= string [ 255]; 

Ivect 

= array [0.. 50] 


of integer; 


helic = record 

base, loc, des : point; 
busy : boolean; 

jobtyp : integer; { l=repair, 2=weather, 3=transfer, 4=accid } 
timer : extended; 

speed : extended; 

range : extended; 

nflts : integer; { total number of flights } 

fltime : extended; { total flight time } 
rptime : extended; { total repair time } 
waitt : extended; {total time spent waiting for bird } 
reset : extended; {total time with patient on board } 

dHist : Ivect; { histogram of distances to calls } 

Calldist : extended; 
end; 


center = record 
status 
emrgperday 
cumtot 
numinest 
location 
fleet 
revd 
name 


integer- 

integer; 

integer; { for assigning prob of transfer } 
integer; { number of helicopters at this center } 
point; 

array [ 1 .. nbds ] of integer- 

integer; 

string255; 


end; 


Info = record 
MapName 

numbird, rgnent 
totemerg, numhsp 

percbwthr, durwthr, durrpr, perachi, pertranhi 

scale, avwait, avresc, convert, perctrma, percin, pererpr 

nmwthr, nmrpr 

launchdist, nmaccid, respondt, pickupt 
xlim2 , xlen2 , ylim2 , ylen2 

bird : array [ 1 .. nbds ] of helic; 


String255; 

integer- 

integer; 

extended; 

extended; 

extended; 

extended; 

extended; 



hosp 

Rgnpts 

end; 


var 

Data 

datafile 

wRec 

wPtr 

ph 

Hndl 

MapFrame, TxtFrame 
ans 

i nName , outName 
readdat 

IMPLEMENTATION 

begin 


: arrayfl. .hsp] of center; 
: array[1..40] of point; 


Info; { this is record with all global variables } 
file of info; 


windowRecord; 

WindowPtr; 

PicHandle; 

Handle; 

rect; 

char; 

String255; 

Boolean; 


END. { OF UNIT } 



Birds : Birds . RSRC 


★ 


TYPE STR# 

,1 (32) 

6 

Rotor Craft Rescue 
Vers 1 . 0 

(c) 1988 R. W. Smith 
University of Puerto Rico 
Mayaguez, Puerto Rico 00708 


Type MENU 
,1 
YL4 

About Picture 
(- 


Type MENU 

,2 

File 

New /N 
(Close 
Open /0 
Save /S 
Quit /Q 


Type MENU 

,3 

Edit 

(Undo /z 
(- 

(Cut /X 
(Copy /C 
(Paste /V 
(Clear 


★ 


Type MENU 

,1000 

Sim 

(Run 

(- 


Type MENU 
,1003 

Map 

(NewMAP 

(OpenMap 

(FromScrap 



(SaveMap 


★ 


★ 


Type WIND 

,1000 (32) 
Map Window 
20 2 340 510 
Visible GoAway 
4 
0 


* * 


Type WIND 

,1001 (32) 
Rpt2 

133 2 340 510 
Visible GoAway 
2 
0 


★ ★ 


Type DLOG 

,1000 

ask 

20 10 330 500 
Visible NoGoAway 
1 
0 

1000 


Type DITL 

,1000 (32) ;; Item list 

22 

Btnltem Enabled 
280 350 305 450 
OK 

Btnltem Enabled 
280 150 305 250 
Cancel 


EditText Enabled ; ; 3-12 Field entry areas 

30 445 48 485 

EditText Enabled 
50 445 68 485 


EditText Enabled 



70 445 88 485 


EditText Enabled 
90 445 108 485 

EditText Enabled 
110 445 128 485 

EditText Enabled 
130 445 148 485 

EditText Enabled 
150 445 168 485 

EditText Enabled 
170 445 188 485 


EditText Enabled 
190 445 208 485 

EditText Enabled 
210 445 228 485 


StatText Disabled ;; 13-22 Field Name areas 

30 10 50 440 

Number of Accidents/Year requiring Rotorcraft 

StatText Disabled 
50 10 70 440 

% of Accidents to Level 3 Trauma Center 

StatText Disabled 
70 10 90 440 

% of Ambulance Accidents later needing air Transfer 

StatText Disabled 
90 10 110 440 

% of Transfers Which must go to Level 3 Trauma Center 

StatText Disabled 
110 10 130 440 

Hours/Week out of service due to maintenance 

StatText Disabled 
130 10 150 440 

Average Duration of Maintenance [min] 

StatText Disabled 
150 10 170 440 

Hours/Month out of service due to Weather 

StatText Disabled 
170 10 190 440 

Average Duration of Weather Downtime [min] 

StatText Disabled 
190 10 210 440 

Average time on ground to pick up patient [min] 

StatText Disabled 
210 10 230 440 

Average time to respond to call [min] 



Type DLOG 
,1010 
Question? 

22 10 45 490 
Visible NoGoAway 
1 
0 

1010 


Type DITL 

,1010 (32) ;; Item list 
4 

Btnltem Enabled 
280 350 310 450 
OK 

Btnltem Enabled 
280 150 310 250 
Cancel 


StatText Enabled 
4 10 20 435 
A 0 


EditText Enabled 
4 445 20 475 


Type DLOG 

,1020 

Rpl 

26 10 130 500 
Visible NoGoAway 
1 
0 

1020 


Type DITL 

,1020 (32) ;; Item list 

17 


Btnltem Enabled ; ; #1 Next center 

85 272 100 360 
Next Center 


Btnltem Enabled ; ; #2 Ok button 

85 440 100 480 
OK 



Btnltem Enabled ; ; #3 Print it 

85 370 100 425 

PRINT 


Btnltem Enabled ;; #4 another simulation 

65 370 80 460 

Re-Simulate 


EditText Enabled ;; #5 # of flights 5- 10 Field entry areas 

25 222 40 250 


EditText Enabled ;; #6 av dist 

45 222 60 250 


EditText Enabled ; ; #7 av wait 

65 222 80 250 


EditText Enabled ; ; #8 av time 

85 222 100 250 

EditText Enabled ; ; #9 out of range 

25 450 40 478 

EditText Enabled ;; #10 unavailable 

45 450 60 478 


StatText Enabled ;; #11 {x week simulation time } 

1 2 20 218 
A 0 

StatText Disabled 
25 2 40 218 

Number of Rotorcraft Flights 

StatText Disabled 

45 2 60 218 

Avg Distance to Scene 

StatText Disabled 
65 2 80 218 

Avg Wait for Rotorcraft arrival 

StatText Disabled 

85 2 100 218 

Avg Total Transfer Time 

StatText Disabled 
25 275 40 440 
Missed (out of Range) 

StatText Disabled > > # 17 

45 275 60 440 
Missed (Unavailable) 



Type DLOG 
,1030 
HospQ 

22 10 45 500 
Visible NoGoAway 
1 
0 

1030 


Type DITL 

,1030 (32) ;; Item list 

7 

Btnltem Enabled ; ; #1 ok 

280 350 310 450 
OK 


EditText Enabled ; ; #2 NAME 2- 4 Field entry areas 

3 55 18 125 


EditText Enabled ; ; #3 status 

3 295 18 325 


EditText Enabled ;; #4 Num of Birds 

3 460 18 485 

StatText Disabled ; ; #5 

3 2 18 50 

Name: 

StatText Disabled ;; #6 

3 140 18 290 
Status (1,2,3) 

StatText Disabled ; ; #7 

3 345 18 455 
# of Rtrcraft 


Type DLOG 
,1040 
BirdQ 

22 10 45 500 
Visible NoGoAway 
1 
0 

1040 


Type DITL 

,1040 (32) ;; Item list 

6 


Btnltem Enabled 
280 350 310 450 
OK 


r r 


#1 ok 



BditText Enabled 
3 80 18 110 


; ; #2 speed 2- 3 Field entry areas 


EditText Enabled ; ; #3 range 

3 203 18 233 


StatText Enabled ;; #4 rotorcraft Number 

3 300 18 450 
A 0 

StatText Disabled ; ; #5 

3 2 18 77 

Speed: 

StatText Disabled ; ; #6 

3 125 18 200 
Range : 


* End 
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